you can also use CGI to output your header by using the following:

use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
my $q = new CGI;
print $q->header();
[download]