6 lines
128 B
Perl
6 lines
128 B
Perl
|
use warnings;
|
||
|
|
print("Hello, World!\n");
|
||
|
|
print("What is your name? ");
|
||
|
|
my $name = <STDIN>;
|
||
|
|
chomp($name);
|
||
|
|
print("Hello, $name\n");
|