# prompt for and read First and Last name, then print a welcome messag
+e.

print "\nWhat is your first name? ";
my $first = <>;

print "\nWhat is your last name? ";
my $last = <>;

chomp $first; # strip the newline from the first name

print "Welcome $first $last";
[download]