Select Code to Download

while ( $bytesread = read $fh, $buffer, 1024 )
{
...
print OUTF $buffer;
}
close OUTF;

open(OUTF, '>', "$directory$filename") || Error;