get latest file

#!/usr/bin/perl
#This is .latest.cgi
$|++; my @file = `ls -1 -t -p | grep -v -P '/'`;
print "Location: $file[0]\n\n";
exit;