$cook = $ENV{'HTTP_COOKIE'};
@cookies = split /;/, $cook;
foreach $new (@cookies){
    print "Welcome back:" . $new;
}
print "</PRE>\n";