#!/usr/local/bin/perl

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

my $query = 'action';
if($query eq 'Login'){
	();
}
else {
   setCookie();
}

sub setCookie {

my $cookie1 = new CGI::Cookie(-name    =>  'cookie',
        	                  -value   =>  'here',
                	          -expires =>  '+3m',
                              -path    =>  '/root/Desktop',
);

print "\nSet-Cookie: $cookie1\n";
print "Content-Type: text/html\n";
print '<meta http-equiv="refresh" content="2">', "\n\n";
}