Select Code to Download

my $user = get_username();
if ($user =~ /^(\w+)$/) {
...
  die "Hey, you gave me bad input: $user\n";
}
# proceed with untainted $user