#!/usr/bin/perl -w 
print "What is your name?\n"; 
$name=<STDIN>; 
#remove the new-line character: 
chomp($name); 
$len=length($name); 
print "\nHello $name! Your name is $len characters long\n";