my $listener = IO::Socket::INET->new(LocalPort => 12345,
                                     Listen => 1) || die "Cannot create socket\n";

while ($client = $listener->accept()) {
    $pid = fork();
    die "Cannot fork: $!" unless defined($pid);
    if ($pid == 0) { 
		 print "Hi!";
		 exit(0);
    }
}