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

##</code><code>##

while (my $line = <>) {
  print $line;
}

foreach my $name (@people) {
  print $name;
}