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