http://www.perlmonks.org?node_id=1006628


in reply to How can i debug compound map/grep statements just using print?

Did you mean:

$amount = $amount * 24 * 60 * 60;

And have you tried:

$result = grep { /.+\.$suffix$/ and $time - ( $_->stat )[9] >= $amount } io($dir)->all;

$result is the file count...