my $directory = 'Where/the/directory/is';

    opendir(DIR,$directory);
    my @files = grep { $_ ne '.' && $_ ne '..' }readdir DIR;
    closedir(DIR);
    foreach(@files)
    {
      print "<A HREF='$_'>$_</A>";
      print "<BR>";
    }