use Getopt::Std::getopts;

Getopt::Std::getoptsの使い方。記号の後に「:」をつけるとオプション引数が取れる。「:」をつけないと「1」が取れる。

#!/usr/bin/perl

use strict;
use Getopt::Std;

my %opts = ();
getopts("b:p:n", \%opts);
my $base = $opts{'b'};
my $n = $opts{'n'};
my $pkg = $opts{'p'};

print "b:$base n:$n p:$pkg\n";
$ ./getopts.pl -b base -n -p pkg
b:base n:1 p:pkg