# untestest
# ...
use lib1 qw(sub_for_perl1);
use lib2 qw(sub_for_perl2);

#...
sub_for_perl1($file_in, $file_out);
if ( -e $file_out) {
    sub_for_perl2($file_out, $final_out);
}