Select Code to Download

#!/usr/bin/perl
use warnings;
...
print "Enter your name: ";
chomp(my $name = <STDIN>);
print "Your name is: $name\n";