use IO::Socket::INET;
$sock=IO::Socket::INET->new(Listen => 1,
    LocalAddr => $interfaceaddres,
    LocalPort => $portnumber,
    ReuseAddr => 1,
    Proto => 'tcp');