sysctl net.inet.ip.portrange.reservedhigh=0
sysctl net.inet.ip.portrange.reservedhigh=0
#!/usr/bin/perl -w
use strict;
use Socket;
socket(SOCK, PF_INET, SOCK_STREAM, getprotobyname('tcp'));
if(!bind(SOCK, sockaddr_in("80", INADDR_ANY)))
{
warn "bind: $!\n";
}
close(SOCK);
exit(0);