If I were in your place, I'd try running it from the command line and see what it does print. Or maybe putting a print header; statement before your print_header sub declaration. Just my $.02.

Cheers,

Brent