Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use say;
...
$ cat output.txt 
abcd124 klmn124 100.00 2500.00 -2400.00 (WAIVED)
abcd123 klmn123 100.00 1000.00 -900.00 (VIOLATED)
  2. or download this
    #!/usr/bin/perl
use say;
...

close $output
    or warn "Could not close ".$result.": $!";
  3. or download this
    #!/usr/bin/perl
use say;
...
$ cat output.txt
abcd123 klmn123 100.00 1000.00 -900.00 (VIOLATED)
abcd124 klmn124 100.00 2500.00 -2400.00 (WAIVED)