Help for this page
my @list = `dir *.log \/B \/OD`; my $newest = $list[-1]; print "$newest\n";
my @files = sort { -M $a <=> -M $b } <*.log>; my $newest = $files[-1]; print "$newest\n";
www.com | www.net | www.org
No recent polls found