#!/usr/bin/perl

use CGI qw/:standard/;
use strict;
use warnings;

$user='user1';

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