ncc/tests/old_tests/example_project/scripts/unit.pl

6 lines
128 B
Perl
Raw Normal View History

2023-01-29 23:27:56 +00:00
use warnings;
print("Hello, World!\n");
print("What is your name? ");
my $name = <STDIN>;
chomp($name);
print("Hello, $name\n");