$file_folder = "foo/foo2/";

tie %arquivos, IO::Dir, $file folder;

if (scalar ( keys %arquivos) ne 0)
{
    foreach (keys %arquivos)
    {
        if ($_ ne "." and $_ ne "..")
        {
    <a href=\"$file_folder$_\">$_</a>\n";
        }
    }
}

else
{
    print "There are no files\n";
}