my $filename = PerlApp::extract_bound_file($datafile);
open my $fh, ">$filename";