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

print "Please enter some text: ";
my $input = <STDIN>;
chomp($input);
print "You typed $input\n";