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

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

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