#!/usr/bin/perl -w
use strict;

print "Enter something: ";
my $response = <STDIN>;

print "You entered: $response";