use CGI::Cookie;
%cookies = fetch CGI::Cookie;
my $isset = $cookies{'user'};
my @temp1 = split(/\;/, $isset);
my @temp2 = split(/=/, $temp1[0]);
my $username = $temp2[1];