you're never actually reading from the file according to this code. try

while ($file=<HIPORT>)
[download]

instead of

while ($file=~/\n$/)
[download]