sub IP_check {
    my $_info2 = $ENV{'REMOTE_ADDR'};
    my $info;
    
    if (!$_info2) {
        $info2 = "No IP address available";
        return $info2;
    } elsif ($_info2 !~ /[\%]+/ && 
             $_info2 =~ /^(\d{1,3}\.{1})(\d{1,3}\.{1})(\d{1,3}\.{1})(\d{1,3})$/) {
        my $info2 = "$1$2$3$4";
        return $info2;
    } else {
        my $info2 = "Bad IP address submitted";
        return $info2;
    }
}