Select Code to Download

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: $!";