Select Code to Download

   print "Content-Type: text/plain\n\n";

#!/usr/bin/perl -wT
                                                                      
+          
...
                                                                      
+          
print header("text/plain");
print whois('yahoo.com');