...
    if ( $pngData{$hashCode} ) {
        open    MyPNG, '>', $hashCode or die "Write Error: $hashCode: $!\n";
        binmode MyPNG;
        print   MyPNG  pack 'H*', $pngData{$hashCode};
        close   MyPNG;
    }
    ...