#!/usr/bin/perl -d
use strict;
use warnings;
use Data::Validate::IP qw(is_ipv4 is_ipv6);
use CGI qw(:standard);
print header();

my $cgi = CGI->new;
my $param_IP = $cgi->param('IP');


if (is_ipv4($IP)) {
	print "IPv4\n";
}
else {
	print "Keine IPv4\n";
}

my $IP = IP;
if (is_ipv6($IP)) {
	print "IPv6\n";
}
else {
	print "Keine IPv6\n";
}

my $param_IP = $cgi->param('IP');

my $IP = $cgi->param('IP');