my $sock = new IO::Socket::INET (LocalHost => 'sgilbertdt',
                                 localPort => 1200,
                                 Proto     => 'tcp',
                                 Listen    => 5,
                                 Reuse     => 1
                                );