SYNOPSIS use Filename::Compressed qw(check_compressed_filename); my $res = check_compressed_filename(filename => "foo.txt.gz"); if ($res) { printf "File is compressed with %s, uncompressed name: %s\n", $res->{compressor_name}, $res->{uncompressed_filename}; } else { print "File is not compressed\n"; } DESCRIPTION SEE ALSO Filename::Archive