#!/usr/bin/perl -w

use strict;

die "Required argument missing!\n" unless ($ARGV[0]);
if ($ARGV[0] =~ /Hello/i) {
   my $response = "Hello to you.\n";
}else{
   my $response = "Huh?\n";
}
print $response;