#!/usr/bin/perl -I../

use Net::XWhois; 
use Data::Dumper; 

my $w = new Net::XWhois; 

$w->register_parser ( Name   => 'INTERNIC',
                      Retain => 1, 
                      Parser => { 
                      	creation_time => 'Record created on (\S*?)\.\n',
				      } ); 


my $domain = shift; 
my $whois = new Net::XWhois Domain => $domain; 
print "$domain --\n"; 
print "Registrant: ", $whois->registrant ();
print "\nCreation Time of $domain: ", $whois->creation_time (); 
print "\n";

print Dumper $w;