use IO::Socket::INET ();

my $sock = IO::Socket::INET->new(
   Proto    => 'tcp',
   PeerAddr => '141.121.85.63',
   PeerPort => '64511',
)
   or die "Unable to create socket: $!\n";

print while <$sock>;