$sock = new IO::Socket::INET( PeerAddr => 'dev01.nerds.com',
                              PeerPort => 1200,
                              Proto    => 'tcp',
                              Type     => SOCK_STREAM );