Help for this page

Select Code to Download

Select or download this

  # compress
  open  my $fh, ">:via(XXZ)", "test.xxz";
...
  while (<$fh>) {
      ...
      }