Select Code to Download

use vars qw( $error );

sub do_lots {
...
    return $error if $error;
    # ... as necessary
}

    my $result;
    $result = mangle_once(%hash);
    return $error unless defined $result;
    # et cetera