<% opendir ( DIR, "." ); @files = readdir ( DIR ); @files = sort(@files); @files = reverse(@files); closedir ( DIR ); print "Source code is listed by date, the most recent code is listed first\n"; print "

\n"; for $i (@files ) { if ($i =~ /.gz/) {print "

$i\n";} } print "

\n"; %>