<% opendir ( DIR, "." ); @files = readdir ( DIR ); @files = sort(@files); @files = reverse(@files); closedir ( DIR ); print "

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

$i\n";} } print "

\n"; %>