#!/usr/bin/perl
use strict;
use Socket;
use constant DEFAULT_ADDR => 'timer server';
use constant PORT => 13;
use constant IPPROTO_TCP => 6;
my $address = shift || DEFAULT_ADDR;
my $packed_addr = inet_aton($address);
my $destination = sockaddr_in(PORT,$packed_addr);
socket(SOCK,PF_INET,SOCK_STREAM,IPPROTO_TCP) or die "Can't make socket: $!";
connect(SOCK,$destination) or die "Can't connect: $!";
print <SOCK>;
|