#!/usr/bin/perl -w
print "What is your name? ";
$name = <STDIN>;
chomp($name);
print "Hello $name!\n";