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