#!/bin/usr/perl -w
use strict;

use Socket;

use constant DEFAULT_ADDR => '127.0.0.1';
#use constant DEFAULT_ADDR => '192.168.1.54';
use constant PORT         => 13;
use constant IPPROTO_TCP  => 6;


my $address = shift ||  DEFAULT_ADDR;
my $packed_addr = inet_aton($address);
my $destintaion = sockaddr_in (PORT, $packed_addr);


socket(SOCK,PF_INET,SOCK_STREAM,IPPROTO_TCP) or die " cant make socket : $!"
or die "cant connect : $!";


print  <SOCK>;