Select Code to Download

#!/usr/bin/perl -Tw

...
my $text = get_whois($domname, undef, "QRY_LAST");
print $text;
}

#!/usr/bin/perl -wT

...
# print ...;
  }
}