if (!(
        print($out_fh $gd->jpeg())
            and
        close($out_fh)
    )) {
        warn("Error writing file \"$out_qfn\": $!. Skipping\n");
        close($out_fh);
        unlink($out_qfn);
        next;
    }

##</code><code>##

    if (!print($out_fh $gd->jpeg())) {
        warn("Error writing file \"$out_qfn\": $!. Skipping\n");
        close($out_fh);
        unlink($out_qfn);
        next;
    }

    if (!close($out_fh)) {
        warn("Error writing file \"$out_qfn\": $!. Skipping\n");
        close($out_fh);  # Useless
        unlink($out_qfn);
        next;
    }