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.

use CGI qw(header);
    print header(-content => "text/html",
            -status => '404 CANOT HAS FILE ;_;');