Select Code to Download

$SIG{PIPE} = sub {close $active; exit (3)};
sub readn
...
   return $offset;
}

#!/usr/bin/perl -w 
use strict;  
...
   writen ($socket,substr($buf,0,1));
   writen ($socket,substr($buf,1,$RW_BUF_LEN-1));
}

#!/usr/bin/perl -w
use strict;
...
   #print "num bytes written to server: $offset\n";
   return $offset;
}

writen ($socket,substr($buf,0,1));             
writen ($socket,substr($buf,1,$RW_BUF_LEN-1));