ext/IO-Compress/examples/io/anycat

   1 #!/usr/local/bin/perl
   2
   3 use strict ;
   4 use warnings ;
   5
   6 use IO::Uncompress::AnyInflate qw( anyinflate $AnyInflateError );
   7
   8 @ARGV = '-' unless @ARGV ;
   9
  10 foreach my $file (@ARGV) {
  11
  12     anyinflate $file       => '-',
  13                Transparent => 1,
  14                Strict      => 0,
  15          or die "Cannot uncompress '$file': $AnyInflateError\n" ;
  16
  17 }