Select Code to Download

my $fh;
open $fh, '<', \ $data
  or $fh = new IO::Uncompress::Gunzip (\ $data, Transparent => 1)
    or BAIL_OUT "cannot open string as file: $! $GunzipError";