use IO::Socket::INET;

my $ipc = IO::Socket::INET->new(
   LocalAddr => 'localhost',
   Listen    => 1,
   Proto     => 'tcp',
);

print "SIZE: ", (stat($ipc))[11], "\n";