Shell Programming and Scripting

$
$ cat perl_getopt
#! /usr/bin/perl -w
use Getopt::Std;

our($opt_c, $opt_s, $opt_e);
getopt('c:s:e:');

if (defined($opt_c)) {print "option c is $opt_c \n";}
if (defined($opt_s)) {print "option s is $opt_s \n";}
if (defined($opt_e)) {print "option e is $opt_e \n";}

foreach $arg (@ARGV) { print "arg = $arg\n"; }
$
$
$
$
$ ./perl_getopt -s sval  -c cval   one two 333 fore
option c is cval
option s is sval
arg = one
arg = two
arg = 333
arg = fore
$

-s enables rudimentary switch parsing for switches on the command
line after the program name but before any filename arguments (or
before an argument of --). Any switch found there is removed from
@ARGV and sets the corresponding variable in the Perl program. The
following program prints "1" if the program is invoked with a -xyz
switch, and "abc" if it is invoked with -xyz=abc.

#!/usr/bin/perl -s
if ($xyz) { print "$xyz\n" }

-- excerpt from man perlrun , q.v.

#!/usr/bin/perl -s
if ($xyz) { print "$xyz\n" }

% ./p1 -xyz="Hello, world."
Hello, world.