Select Code to Download

sub my_get {
    my ($self) = shift(@_);
...
    # ... if $@
    return $result;
}

my $success;
while (! $success) {
...
        sleep $CONFIG{DELAY};
    }
}