print "What is your name?\n"; $input=; $name=inputcutter($input); print "What is your age?n\"; $input=; $age=inputcutter($input); print "Your are $name and your age is @age years old.\n"; sub inputcutter{ $s=chomp $input; return ($s); }