C:\>perl -MCGI -e "print header();"
Undefined subroutine &main::header called at -e line 1.