malformed header from script. Bad header=HTTP/1.1 302 Moved: index.cgi

##</code><code>##

sub paypal_redirect {
        my ($query, $total_cost) = @_;
        my $cgi = CGI->new;
        print $cgi->redirect(-uri => 'https://www.paypal.com/cgi-bin/webscr', -nph => 1);
        print $cgi->start_form(-method => 'post');
        print $cgi->hidden(-name => '_cmd', -value => '_xclick');
        print $cgi->hidden(-name => 'business', -value => $email);
        print $cgi->hidden(-name => 'item_name', -value => $comment);
        print $cgi->hidden(-name => 'item_number', -value => $query->param('session'));
        print $cgi->hidden(-name => 'amount', -value => $total_cost);
        print $cgi->hidden(-name => 'no_note', -value => 1);
        print $cgi->hidden(-name => 'currency_code', -value => 'USD');
        print $cgi->end_form;
}