#!/usr/bin/perl -wT
                                                                                
use strict;
use CGI qw(:standard);
use Net::Whois::Raw qw(whois);
                                                                                
print header("text/plain");
print whois('yahoo.com');