$SIG{ALRM} = sub {die}
while (1) {
    print "Getting url... $url\n";
    eval   {
        alarm(10);
        $response = get $url; 
        alarm(0);
        last; #It should die before coming here
    };
   print "Timed out. Trying again...\n" :
 }
print "Got url!\n";