Select Code to Download

sub IP_check {
    my $_info2 = $ENV{'REMOTE_ADDR'};
...
        return $info2;
    }
}

sub IP_check {
    my $_info2 = $ENV{'REMOTE_ADDR'};
...
        return "Bad IP address submitted";
    }
}

sub IP_check {
    my $_info2 = $ENV{'REMOTE_ADDR'};
...

    return $ip;
}

sub IP_check {
    my $_info2 = $ENV{'REMOTE_ADDR'};
...
        "Bad IP address submitted";
    }
}