#!/usr/bin/perl -w
use strict;  #damn fine idea
my $user_value=<STDIN>;

chomp $user_vaule;