#!/usr/local/bin/perl -w

use strict;
use IO::Socket;

{
   my $sock = undef;

   $SIG{ALRM} = sub {die "GOT TIRED OF WAITING"};

   eval {
         alarm (2);
         $sock = new IO::Socket::INET (PeerAddr => '10.0.0.18',
                                       PeerPort => 29,
                                      );
         alarm (0);
        };

   die "Can't open socket: $@\n" if (!$sock);

   print "I would print to the socket now, if I knew what I was connected to\n";

   close ($sock);
}