%cookies = fetch CGI::Cookie;
$user = $cookies{'USER'};
print "$user";