#!/usr/local/bin/perl -w
use strict;

my $string = shift || die "I'm not saying hello until you tell me your name\n";

my $ucstring = uc $string;

print "Hello $string...\n";
print "Hello $ucstring \n";
