#!/usr/bin/perl --

print "Enter The Key\n";
my $key = <STDIN>;
chomp($key);
print "You have entered $key ";