Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...
## Open and print averages to $avg_file
open(OUT,$avg_file) or die "$avg_file failed to be created: $!";
print OUT @avg_frmt;
  2. or download this
    #!/usr/bin/perl

...
## Open and print averages to $avg_file
open(OUT,$avg_file) or die "$avg_file failed to be created: $!";
print OUT @avg_frmt;
  3. or download this
    #!/usr/bin/perl

...
    print "\t\tControl returned\n";
  }
}