Select Code to Download

if ( open my $fh, ... ) {
    while (<$fh>) { ... }
...
;1 } or do {
    warn "error: $@";
};