#!/usr/bin/perl -w

#
# input from command line
#
my ( $foo, $bar ) = @ARGV;
print "foo = $foo\n";
print "bar = $bar\n";