Try replacing the print statement above with :

print "<a href=\"$dir$_\">$_</a>\n"
[download]

I wonder if that is what you mean?