#!/usr/bin/perl –w

chomp(my $user_value = <STDIN>);

if ($user_value eq "h") {
	print " hi \n";

}