#!/usr/bin/perl
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($param_IP)) {
	print "IPv4\n";
}
else {
	print "Keine IPv4\n";
}

if (is_ipv6($param_IP)) {
	print "IPv6\n";
}
else {
	print "Keine IPv6\n";
}