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