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


print "What is your name?: ";

my $name = <STDIN>;
$name =~ s/\n//;

print "Your name is $name\n";


1;
__END__