#!\usr\bin\perl -w

use warnings;
use strict;

print "\n\nWhat is your name pal: ";
my $name{user} = <STDIN>;

print "\nOk thanks, what is your mom's name: ";
my $name{mom} = <STDIN>;

print "Ok $name{user}, be sure to thank $name{mom}, for giving birth to you";