Select Code to Download

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

$new =~ s/^user=(.*)/$1)/;