Select Code to Download

use IPC::Open2;
use FileHandle;
...
}

close ($dfh) or die "Error in child: $!\n";

use IPC::Run qw( run );
use FileHandle;
...
my $dfh = decompress_filehandle($fh);

print $_ while <$dfh>;