#!/usr/bin/env perl
use IO::Socket;
my $SOCK;
$SOCK = new IO::Socket::INET ( LocalHost => 'node01',
                               LocalPort => 9000,
                               Proto => 'tcp',
                               Listen => 1,
                               Reuse => 1, );
die "Socket creation failed ..." unless $SOCK;
...