Perl CGI Issue

How can I get my Perl CGI script (that will be running via mod_perl) to send a 404 status code for an error page? The ways that I have tried don't display this in the access_log or don't send the code at all.

Any correct way of doing this?

Thanks.

                        _    _
                       ( \__//)
                        .'     )
                    __/p q  .  )
                   (_p_`,     .)
                    `--'-,-'  )
                         (.  )
    HAVE YOU READ       (   )
   YOUR PROGRAMMING     (   )
     PERL TODAY?       ( . )         .---.
                      (    )        (     )
                      (   . )      (  .    )
                      (      )    (      .  ),
                      ( .     `"'`  .       `)
                       (      .              .
                       ((  .      .   (   .  
                       ((       .    (       
                        ((     )     _( .   .