Select Code to Download

$loop_count = 10;
while( ! $done and $loop_count-- ) {
   $done = is_it_done_yet();
   sleep 1;
}

while( ! $done ) {
   eval {
...
   last if @$ and $@ eq "alarm\n"; # hit alarm timeout
   sleep 1;
}