my $socket = IO::Socket::INET->new(
PeerAddr => '192.168.1.2',
PeerPort => '23',
Proto => 'tcp'
Timeout => 5) or die "Connection failed!";

my $results = <$socket>;