$parsed[3] or die "Extension not found for archive: $fname";
my($path,$base,$ext)=@parsed[0,1,3];
my($pathname)=($parsed[2] eq "=" ? "$path$base" : $fname);
- my($cmdtry,$cmd)=($ext);
+ my($cmdtry,$cmd)=(lc $ext);
do {
$cmd=$cmdtry;
$cmdtry=FORMATS->{$cmdtry};