#!/usr/bin/perl

#use warnings;
#use strict;

use IO::Socket;
my $server = shift;
my $fh     = IO::Socket::INET->new($server) or die "Error: $!";
my $line   = <$fh>;
print $line;