my $server = IO::Socket::INET->new(
  PeerHost => 'some.server.example',
  PeerPort => 42,
  Proto => 'tcp'
);

my $server_said = <$server>;