use IO::Zlib; sub ok { my ($no, $ok) = @_ ; #++ $total ; #++ $totalBad unless $ok ; print "ok $no\n" if $ok ; print "not ok $no\n" unless $ok ; } $name="test.gz"; print "1..11\n"; $hello = <<EOM ; hello world this is a test EOM ok(1, tie *OUT, "IO::Zlib", $name, "wb"); ok(2, printf OUT "%s - %d\n", "hello", 123); ok(3, print OUT $hello); ok(4, untie *OUT); ok(5, tie *IN, "IO::Zlib", $name, "rb"); ok(6, !eof IN); ok(7, <IN> eq "hello - 123\n"); ok(8, read(IN, $uncomp, 1024) == length($hello)); ok(9, eof IN); ok(10, untie *IN); unlink($name); ok(11, $hello eq $uncomp);