) || ( $bool = "False" )
# oder so etwas...
my $socket = IO::Socket::INET->new (
# [ ... ]
);
my $bool = $socket ? "True" : "False";