Update qc

Some changes to make this run in Strawberry Perl.