if ( (my $name = GetName()) =~ /^\w+$/) ) {
  print $name;
}