Select Code to Download

copy($groups_qfn, $backup_qfn)
    or die("Can't backup $groups_qfn\n");
...
}

untie @lines;

copy($groups_qfn, $backup_qfn)
    or die("Can't backup $groups_qfn\n");
...
    }
    print $out_fh $_
}