Select Code to Download

open (FH, "$dir$file") or die "Can't open $dir$file: $!\n";

use Errno;
$rv = syswrite(HANDLE, $buffer, length $buffer);
if (!defined($rv) && $!{EAGAIN} ...