Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

...

close( $out_fh )
   or die( "Error writing to `$out_qfn`: $!\n" );

Select or download this

#!/usr/bin/perl

...

close( $out_fh )
   or die( "Error writing to `$out_qfn`: $!\n" );