Help for this page

Select Code to Download


  1. or download this
    #!perl -w
use strict;
...
}

find( \&DeleteOldFiles, '.' );
  2. or download this
    #!perl -w
use strict;
...
    next if -d;
    unlink $_ or die $! if -M > $days;
}