#!/usr/local/bin/perl
use strict;
use warnings;
my ($userinput1, $userinputer2);
$userinput1 = <STDIN>;  #first name
$userinput2 = <STDIN>;  #last name
print "Hello $userinput1_$userinput2";