#!/usr/bin/perl

use CGI qw/:standard/;

$user="user1";

$cookie1 = cookie(-name=>'user',
		     -value=>'$user',
		     -expires=>'+1h');
print header(-cookie=>$cookie1);