#!/usr/bin/perl
if ($#ARGV == 2) { 
# $#ARGV is number of args in @ARGV minus one
my $foo = shift; #First arg;
my $bar = shift; #second arg;
my $baz = shift; #Last arg;
#print it;
print "You say $foo $bar $baz?\n";
} else {
#Warn, and exit;
warn <<TEXT;
I need three arguments!
Usage: $0 arg1 arg2 arg3
TEXT

}