#!/usr/sbin/perl
print "What is your name\n";
$name=<STDIN>;
chop($name);
print "Welcome $name to our world\n";
