Mocking IO - script
use strict;
use warnings;
print("Enter your name: ");
my $name = <STDIN>;
chomp $name;
print("Hello '$name'\n");
Press ← or → to navigate between chapters
Press S or / to search in the book
Press ? to show this help
Press Esc to hide this help
use strict;
use warnings;
print("Enter your name: ");
my $name = <STDIN>;
chomp $name;
print("Hello '$name'\n");