just another thing i spotted:

while (<$filename>) {
...
}
while ($bytesread=read($filename,$buffer,1024)) {
[download]

after the first while $filename will be at eof and return undef.