sub hash { my $ftp = shift; # self my($h,$b, $p) = @_; unless($h) { delete ${*$ftp}{'net_ftp_hash'}; return [\*STDERR,0]; } #($h,$b) = (ref($h)? $h : \*STDERR, $b || 1024); ($h, $b, $p) = ( $h, $b || 1024, $p); #select((select($h), $|=1)[0]); #Dont need to set flush on the filehandle when we use a coderef? $b = 512 if $b < 512; ${*$ftp}{'net_ftp_hash'} = [$h, $b, $p]; }