opendir (DIR, $dir);
while($i = readdir(DIR))
{
   if ($i != "..")
   {
        print "<li><a href=\"" . $dir . $i . "\" target=\"_blank\" />" . $i . "</a></li>\n";
}
closedir(DIR);

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~;
}