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