<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#!perl
# INADDR_ANY
use Socket qw(AF_INET PF_INET SOCK_STREAM SOL_SOCKET SO_REUSEADDR);

# sub INADDR_ANY {&gt;.&amp;INADDR_ANY.qq&lt;;}
print qq&lt;
sub AF_INET {&gt;.&amp;AF_INET.qq&lt;;}
sub PF_INET {&gt;.&amp;PF_INET.qq&lt;;}
sub SOCK_STREAM {&gt;.&amp;SOCK_STREAM.qq&lt;;}
sub SOL_SOCKET {&gt;.&amp;SOL_SOCKET.qq&lt;;}
sub SO_REUSEADDR {&gt;.&amp;SO_REUSEADDR.qq&lt;;}
1;
&gt;;
</pre></body></html>