Help for this page
1. #!/usr/bin/perl -w 2. ... 12. ); 13. 14. close( $report ) or die "close failed: $!";
1. #!/usr/bin/perl -w 2. ... 41. close( $new_inv ) or die "close failed: $!"; 42. close( $old_inv ) or die "close failed: $!"; 43. close( $diffs ) or die "close failed: $!";