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