Select Code to Download

sub method_a {
   ...
...
   open(...) or die "Third ...";
}

if ( $caller eq '_method_c') {
    return 0;
}
return 1;
}