Bloat is a Perl script which analyses an archive's filename,
and extracts it using a suitable extractor. It also supports
several other features, such as "subdirectory detection",
MIME-type checking (via 'file'), and extraction of non-trivial archive types.