Does anyone how to write a 301 header in PHP/Perl?

[qll]

I know how to do a 302. Simple write Location: newurl
When I look at 301,
2004-09-17 18:55:59.995 HTTP/1.1 301 Moved Permanently
it is before
2004-09-17 18:55:59.995 Date: Fri, 17 Sep 2004 22:56:27 GMT
2004-09-17 18:55:59.995 Server: Apache/1.3.29 (Unix)
I don't know how to control them as those are added by apache, not by Perl/PHP.

I know how to do 301 in .htaccess, but I want to do it in Perl/PHP

[digitalpoint]

<?php
header("HTTP/1.1 301 Moved Permanently");
header("Location: http://www.digitalpoint.com/");
?>