my $main_sock = new IO::Socket::INET (LocalHost => $host,
LocalPort => $port,
Listen => 5,
Proto => 'tcp',
Reuse => 1,
Time_wait => 1,
);
if (!$main_sock)
{
die "Socket could not be created. Reason: $!\n";
}