#### Program:
# The Personal Program
print "Please enter your name: ";
$name = <STDIN>;
chomp($name);
print "$name - Why are you insulting me by your presence?\n";
__END__

#### Sample Output:
Please enter your name: George
George - Why are you insulting me by your presence? 
        
#### Notes on Code Fragments:

$name = <STDIN>;      # sets the variable $name to whatever you enter.

chomp($name);         # zaps any new line characters at the end of $name.
        
############################# that's all folks #################################