my $inFile;
    ...
    if (!open ($inFile, '<', $fileName)) {
    ...
    if ($family{"sha$mode"}) {
        $dObj->addfile (*$inFile);
        ...
    if ($family{"sha${mode}_hex"}) {
        $dObj->addfile (*$inFile);
        ...
    if ($family{"sha${mode}_b64"}) {
        $dObj->addfile (*$inFile);
        ...
[download]

You can't use a typeglob with a lexical variable.    Remove the '*' from in front of $inFile.