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

print "Enter your name: ";
chomp(my $name = <STDIN>);
print "Your name is: $name\n";