I've been struggling (needlessly, I'm sure) with this so long. I wouldn't be able to do it correctly, if the answer was right in front of my face. It appears I have a bad perpensity(sp) for making the easy things overly complicated. :(

Anyway, to my question;
I have a single text field that, depending on the content placed into the field, will get directed to the correct sub/function.

Specifically; The 2 subs/functions are intended to either receive a Domain Name, or an IP address. I've built the subs for the functions. But sadly, I can only seem to make it work with one, or the other -- not both. FWIW I'm using Net::Whois::Raw and Net::Whois::ARIN

Here's the bulk of it:

#!/usr/bin/perl -Tw

print qq(content-type:text/html; charset=utf-8\n\n);

use strict;
use CGI;
use Net::Whois::Raw;

# Net::Whois::Raw options ...

my $q = new CGI;
my $domname = $q->param("domname");


if (!$domname){print "";}else{
my $text = get_whois($domname, undef, "QRY_LAST");
print $text;
}
[download]

Here's the bulk of the IP version I have, that works:

#!/usr/bin/perl -wT

use CGI;
use Net::Whois::ARIN;

my $w = Net::Whois::ARIN->new(
host    => 'whois.arin.net',
port    => 43,
timeout => 30,
);

print "content-type:text/html; charset=utf-8\n\n";
my $q = new CGI;
my $ip = $q->param('ip');
if (!$ip){print "";}else{
my @records = $w->network($ip);
foreach my $net (@records)  {

# print ...;
  }
}
[download]

Thank you for all your consideration, and apologies if this all seems silly fodder.

--Chris

#!/usr/bin/perl -Tw
use Perl::Always or die;
my $perl_version = (5.12.5);
print $perl_version;