Help for this page

Select Code to Download


  1. or download this
    #!/bin/perl
    use v5.12;
    ...
    
           if (! open my  $out_fh, '>', $out) {
              die "Can't write '$out': $!";
    
  2. or download this
    Usage: ./exer_9_2 filename at ./exer_9_2 line 7.