# at the start of your script
use CGI;
my $query = CGI::new();

# then later

my $cookie1 = $query->cookie(-name=>'Name',
                             -value=>$user,);
my $cookie2 = $query->cookie(-name=>'Passwd',
                             -value=>$pass);

print $query->header(-cookie=>[$cookie1,$cookie2]);