Select Code to Download

perl -MNet::Whois::Raw -e "print whois(\"lexicon.co.uk\")"

#!C:\perl\bin\perl.exe -w
use strict;
...
    }
    return $domain;
}

domain.pl http://www.perlmonks.org/
domain.pl http://perlmonks.org/
domain.pl www.perlmonks.org
etc.

my $q = $res->send($domain, "SOA");