use Net::ParseWhois;
    my $w = new Net::ParseWhois::Domain "maserith.com";
    ....