Help for this page

Select Code to Download

Select or download this

use File::Find::Rule qw( );

...
              ->name( 'temp*' )
              ->ctime( ">=$old" )
              ->in( $dir );