use IO::Uncompress::AnyUncompress;
my $src = 'tt.xml.gzip';
my $dst = 'tt.xml';
print STDOUT 'status = ', IO::Uncompress::AnyUncompress::anyuncompress($src => $dst), "\n";
die "$src uncompress didn't"  if -B $dst;
exit 0