use File::Copy;

$dir = "/perl/bin";
sub month {
foreach (glob "$_[0]/*")
{
-d && recursedirs($_) unless -l;
if (-f )
{
if ((-M) > 01/01/02 && (-M) < 01/31/02 )
{
my $file = $_;
print "$_\n";
}
}
}
}      

month("$dir")