my $file = PerlApp::get_bound_file("patch_file")
open ( my $patch, '<', $file );

##</code><code>##

my $file = PerlApp::get_bound_file("patch_file");
open ( my $patch, '<', \$file );