#!/usr/bin/perl$name="HAL";print "Hello there.  What is your name?\n";$you = <STDIN>;chop($you);print "Hello, $you.  My name is $name.\n";