Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
use strict;
...

die "inflation failed\n"
    unless $status == Z_STREAM_END ;
  2. or download this
    #!/usr/bin/perl -w
use strict;
...
    print DATAFILE <$fh>;
    $fh->close;
}