#turning this...
my $sock=Io::Socket->new(...);
#into this
my $sock=Io::Socket->new(...) or die('foo!');