print $q->header;

becomes

print header;