#!/usr/bin/perl 

use strict;
use warnings;
use IO::Socket::INET;

my $sock = IO::Socket::INET->new(
           Listen    => 5,
           LocalHost => 'localhost',
           LocalPort => 12400,
           Proto     => 'tcp',
           Timeout   => 15,
           Blocking  => 0) 
or die "Couldn't create socket: $!\n";