Help for this page

Select Code to Download

Select or download this

use IO::Uncompress::Gunzip qw(gunzip $GunzipError) ;

gunzip "2010-January.txt.gz" => "2010-January.tmp" or die "gunzip fail
+ed: $GunzipError\n";
gunzip "2010-January.tmp"    => "2010-January.txt" or die "gunzip fail
+ed: $GunzipError\n";