# greeting.pl
print "What is your name?\n";
chomp(my $name = <STDIN>);
print "Hello, $name!\n";