Select Code to Download

#!/usr/bin/perl

...

print header;
print start_html, "E-mail me <A HREF=\"mailto:$user\@$domain\">$user\@
+$domain</A>", end_html;

#!/usr/bin/perl

...
print "IP is $ip\n";
$host = scalar gethostbyaddr(scalar inet_aton($ip), AF_INET) || "unkno
+wn";
print "Host is $host\n";