Example 5-4. examples/scalars/read_from_stdin_chomp.pl

#!/usr/bin/perl
use strict;
use warnings;

print "Enter your name, please: ";
my $name = <STDIN>;
chomp $name;
print "Hello $name, how are you ?\n";