#!/usr/bin/perl -w

use strict;
# seems like an RE might be the easiest
use Data::Validate::IP qw(is_ipv4);
use Data::Validate::Domain qw(is_domain);

# the forms text input name is,not surprisingly, input
my $ip = param("input")||"";
my $dom =  param("input")||"";
print qq(
<form method="post" action="tester.cgi">
<label for="input">Input: </label><input type="text" name="input" value="" />
<input type="submit" value="Post Input" />
</form>);

# how do I know, how can I match?
if (is_ipv4($ip)) {
      print "Looks like an ipv4 address";
}elsif (is_domain($dom)) {
      print "Looks like a domain\n";
}else{print "We got nadda";}