Select Code to Download

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

while (my $line = <>) {
  print $line;
...
foreach my $name (@people) {
  print $name;
}