#!/usr/bin/perl

use strict;
use warnings;

print "Enter your input:\n";
my $input = <STDIN>;
chomp $input;
print "You typed: $input\n";