Select Code to Download

#!/usr/bin/perl

...
    my $written = syswrite($FH,$BUFFER,$BUFSIZE);
        die "System write error: $!\n" unless defined $written;
}