Cookie im laufenden Skript setzen

[mickmack]

Hallo zusammen,

ich habe folgendes Problem:

Und zwar möchte ich einen Cookie setzen über folgende Prozedur:

sub intern_set_cookie_startzeit
{
use strict;
my ($cookie_zeit,$datum)=@_;
my $cookie;

$cookie_zeit.="~".$datum;
    $cookie= cookie(-name=>'startzeit',
                     -value=>$cookie_zeit ,
                            -expires=>'+3M',
                            -path=>'/');

print header(-cookie => $cookie );

Das klappt auch wunderbar. Allerdings nur, wenn ich vorher den Befehl PRINT im Hauptprogramm noch nicht benutzt habe. Ansonsten wird der Header "set-cookie..." wortwörtlich auf dem Bildschirm ausgegeben.

Ich möchte nun aber einen Cookie setzen nachdem ich bereits etwas über Print ausgegeben habe.

Was mache ich falsch? Worauf muss ich achten?