Help for this page

Select Code to Download


  1. or download this
    use Socket qw( sockaddr_in );

my $port = (sockaddr_in(getsockname(SOCK)))[0];
print("Listening to port $port.\n");
  2. or download this
    my $port = $sock->sockport();
print("Listening to port $port.\n");