use Socket qw( sockaddr_in );

my $port = (sockaddr_in(getsockname(SOCK)))[0];
print("Listening to port $port.\n");