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