$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);
$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);