eval {
  local $SIG{'ALRM'} = sub { die "time\n" };
  alarm( $self->{'_write_timeout'} );
  print "\n#1";
  $c = send $self->{'_sock'}, $buf, 0;
  print "#2";
  alarm( 0 );
};
if( $@ ){
  print "#3";
}
print "#4";