Shell Programming and Scripting

./Myscript.pl -a ARGUMENT

./Myscript.pl -b ARGUMENT

#!/bin/perl 

use warnings;
use strict;

use Getopt::Std;
use File::Basename;

my ( %opt, $prg );

$prg = basename $0;

usage() unless @ARGV;

usage() unless getopts( 'ha:b:', \%opt );

$opt{h} and usage();

sub usage {
    print STDERR << "EOF";

    Name $prg - my program

    usage: $prg [-a arg_a] [-b arg_b]

     -a arg_a   : comment here ...
     -b arg_b   : comment here ...

    example: $prg -a arg_a -b arg_b

EOF
    exit;
}

$opt{a} and print "attempting a with $opt{a}\n";

$opt{b} and print "attempting b with $opt{b}\n";