#!/usr/bin/perl
opendir(HERE,".");
foreach $file (readdir(HERE)){
$new = $file;
#$new =~ s/\s/_/g;
#rename($file,$new);
print "<a href=$file>$file</a><br>\n";
}