sub check_ip {
    {
        my $ip = eval {  
            # Indirect object calls are so last millenium
            Net::IP->new(`curl whatismyisp.org`)->ip;
        };
        return $ip if defined $ip;
        sleep 300;
        redo;
    }
}