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");