#!perl
# INADDR_ANY
use Socket qw(AF_INET PF_INET SOCK_STREAM SOL_SOCKET SO_REUSEADDR);

# sub INADDR_ANY {>.&INADDR_ANY.qq<;}
print qq<
sub AF_INET {>.&AF_INET.qq<;}
sub PF_INET {>.&PF_INET.qq<;}
sub SOCK_STREAM {>.&SOCK_STREAM.qq<;}
sub SOL_SOCKET {>.&SOL_SOCKET.qq<;}
sub SO_REUSEADDR {>.&SO_REUSEADDR.qq<;}
1;
>;
