SafeConnect Bypass

Perl SafeConnect Bypass

#!/usr/bin/perl

use Net::Ping;

$host = "www.google.com";

while (1) {
    $p = Net::Ping->new('icmp');
    if ($p->ping($host)) {
	print "$host is alive.\n";
	sleep(5);
    }
    else {
	print "host is not alive.\n";
	`curl -A "Mozilla/5.0 (iPhone; U; CPU like Mac OS X; en) AppleWebKit/420+ (KHTML, like Gecko) Version/3.0 Mobile/1A543 Safari/419.3" http://198.31.193.211:8008`
    }
    $p->close();
}