Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
    
    ...
    
    print header;
    print start_html, "E-mail me <A HREF=\"mailto:$user\@$domain\">$user\@
    +$domain</A>", end_html;
    
  2. or download this
    #!/usr/bin/perl
    
    ...
    print "IP is $ip\n";
    $host = scalar gethostbyaddr(scalar inet_aton($ip), AF_INET) || "unkno
    +wn";
    print "Host is $host\n";