Sorry for the confusion.
When we use Perl running in UNIX, we can use the below command to search the one day old file.
@Files = qx/find . -name '*' -mtime -1 -print/;

The problem I am facing now is I am trying to do the same thing but under Windows platform through Active Perl (window based).
I have tried using windows, but it seems the script will be very long because you need to capture the last date modified file and compare the date with current date.

Is there any other solutions?
It is much better if I can use 1 line of command like UNIX (eg. find) on the Window based Perl.

Thank you.