use strict;
use warnings;

my $plotfile = $ARGV[0];
system("gunzip $plotfile");
my $unzipped = $plotfile;
$unzipped =~ s/\.gz//;
open(PLOT, ">>", $unzipped);
print PLOT "\n";
close PLOT;
system("gzip $unzipped");