Help for this page

Select Code to Download


  1. or download this
    # greeting.pl
print "What is your name?\n";
chomp(my $name = <STDIN>);
print "Hello, $name!\n";
  2. or download this
    # Greeting.pm
package Greeting;
...
}

1;
  3. or download this
    # greeting.pl
use Greeting;
...
Greeting::say_text($out, Greeting::question());
my $name = Greeting::read_answer($in);
Greeting::say_text($out, Greeting::response($name));