use IO::Socket::INET;
my $s = IO::Socket::INET-> new(
    Listen    => 5,
    LocalPort => 10000,
    Blocking  => 0,
    ReuseAddr => 1,
) or die "error:$! [$^E]";

print $s;
__END__
c:\test>junk
error: [Incorrect function] at c:\test\junk.pl line 2.