Change "gzip -dc" to IO::Uncompress:AnyUncompress ?

[tseemann]

https://perldoc.perl.org/IO/Uncompress/AnyUncompress.html

 # read first line to see if we have any data
  my $unzip = IO::Uncompress::AnyUncompress->new($fname);
  my $header = scalar(<$unzip>); # read first line
  $header or err("The input appears to be empty");

it's core Perl and is easy as using open().

[tseemann]

was IO::Uncompress::AnyUncompres in 5.10 ?