#!/usr/bin/perl

#use warnings;
#use strict;

use IO::Socket;

my $site = <STDIN>;

my $fh = IO::Socket::INET->new($site);
my $line = <$fh>;
print $line;