#!/usr/bin/perl
print "What is your name? ";
$name = <STDIN>;
print "Your name is $name\n";

##</code><code>##

#!/usr/bin/perl
print "Hello, there!\n";