<%perl>
my $user;
if ($ARGS{'user'}) {
	($user = $ARGS{'user'}) =~ s/[^0-9a-zA-Z]//g;
} else {
	$user = 'guest';
}
</%perl>
Welcome, <% $user %>!