Skip to content

Instantly share code, notes, and snippets.

@FGasper
Last active March 22, 2019 18:04
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save FGasper/eb481b1239bec223d3606c64a8fec193 to your computer and use it in GitHub Desktop.
Save FGasper/eb481b1239bec223d3606c64a8fec193 to your computer and use it in GitHub Desktop.
strace perl -Mautodie -MSocket -e'my $ip = `/bin/hostname -i`; chomp $ip; socket my $s, Socket::AF_INET, Socket::SOCK_STREAM, 0; my $addr = Socket::pack_sockaddr_in(0, Socket::inet_aton($ip) ); bind( $s, $addr ); getsockname($s); sleep'
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment