#!/usr/bin/perl –w
print "Please enter your name\n";
chomp($name = <STDIN>);
print "Thank you $name";

##</code><code>##

Please enter your name
aaaThank you aaa[root Shared]#

##</code><code>##

 
Please enter your name
aaa
Thank you aaa[root Shared]#