opendir(DIR,$dir) or die $!;
my @files = grep{$_ !~ /^\.\.?$/}readdir(DIR);
closedir DIR;

@files = reverse @files;

for my $file(@files){
       print qq~<li><a href="$dir$file" target="_blank" />$file</a></li>\n~;
}