Shell Programming and Scripting

sub pall_nvrm {
my $cmd = `pall  -w "/u/ab/scripts/dev/nvrmerros/nvrmpaller"`;
print $cmd;
}

 
pall  -w "/u/ab/scripts/dev/nvrmerros/nvrmpaller"

eagley:
boxted:
cadle:
eabost:
hales:
balcombe:
woking:
didsbury:
aughton:

GetOptions($OPT,
    "p"    => \&pall_nvrm,
        "h"     => \$help,
    "t"    => \&make_tea,

use Getopt::Long;

my $help;
sub pall_nvrm {
 print `/usr/bin/ls`;
}

GetOptions( 
		'p' => \&pall_nvrm,
		'h' => \$help,
		't' => \&make_tea
		) or die "Invalid usage!\n";

if( $help ) {
    print "Please have a look at the Getopt::Long documentation.\n";
}

$ perl test.pl -p
cc_dbi
dbc
temp.txt
test
test.pl
$ perl test.pl -h
Please have a look at the Getopt::Long documentation.
$ 
$ 
$ perl test.pl -xxx
Unknown option: xxx
Invalid usage!
$