#!/usr/bin/perl open(whoison, 'w |'); @whois = ; print"Content-Type: text/html\n\n"; print"
"; print"

"; for($i=0;$i<=$#whois;$i+=1) { print"$whois[$i]
"; } print"
";