Using <STDIN>

print "\nEnter Your Name : ";
chomp($name=<STDIN>);

print "\nYour Name is $name";
[download]