#! /usr/local/bin/perl -w use strict; my $thing = shift(@ARGV); print "Hello, $thing\n";