#! perl -slw
use strict;

print "What's your name? ";
print 'Hello ' . <STDIN> . '!!!';