#!/usr/bin/perl -w

use strict;

print "Enter: ";
my $input = <STDIN>;