Select Code to Download

while ( not defined $result ) {
    ( $result = try( $something ) ) or sleep 3;
}

while ( not defined $result ) {
    ( $result = try( $something ) )
        or select undef, undef, undef, 3000;
}

use Time::HiRes qw/ usleep /;

while( not defined $result ) {
    ( $result = try( $something ) ) or usleep( 3000 );
}