Help for this page

Select Code to Download

Select or download this

sub parse_fqdn {
    my $fqdn = shift;
    my @tlds = (
...

my $domain = parse_fqdn('www.cs.niu.edu'); 
print "www.cs.niu.edu => $domain\n"; # niu.edu