Select Code to Download

#!/usr/local/bin/perl5.00506
use CGI;
...
$query_string = $query->param('DIR');
print "Content-type: text/plain", "\n\
print `ls -lt $query_string`;

print `ls -lt *.sql *.txt *.log .. $query_string`;