Select Code to Download

sub clean_dir {
    my $dir = shift;
...
        print "$_[0] removed." if ($debug);
    }
}

my @files = split /\n/, `ls -rtl $dir`;
system ("rm","$dir/$_") for @files[0..9];