Select Code to Download

#!/usr/bin/perl -w

...
    unlink "$dir/$file" if -M "$dir/$file" > ($maxage / 1440);
}
closedir DIR;