Help for this page
opendir my $d, $dir or die "Can't readdir $dir: $!"; my @files = ... @files; unlink @sorted[ 0, 1 ] if @sorted > 20;
my @sorted = sort { -M $b <=> -M $a } @files;
www.com | www.net | www.org
No recent polls found