#!/usr/bin/perl                                                                 

use strict;
use warnings;

print "content-type: text/plain\n\n";

print "Hello World\n";

sub HowdyEveryone {
   my($name1, $name2) = @_;
   return "Hello $name1 and $name2.\n" .
          "Where do you want to go with Perl today?\n";
}
print &HowdyEveryone("bob", "lisa");


sub HowdyEveryone2 {
   my($greeting, @names) = @_;
   my $returnString;

   foreach my $name (@names) {
       $returnString .= "$greeting, $name!\n";
   }

   return $returnString .
          "Where do you want to go with Perl today?\n";
}
print &HowdyEveryone2("Howdy", "bart", "lisa", "homer", "marge",
          "maggie", "pedro");