#!/usr/bin/perl
use strict;
use Getopt::Long;
my @libs = ();
my %flags = ();
my ($verbose,$debug,$test) ;
GetOptions(
'verbose+' => \$verbose, --
'lib=s' => \@libs,
'debug:i' => \$debug,
'test|t=s' => \$test,
'flags=s' => \%flags,
);
print $verbose."\n";
print @libs."\n";
print $debug."\n";
print $test."\n";
foreach(keys %flags){ print "$_ => $flags{$_}\n" };
use strict;
use Getopt::Long;
my @libs = ();
my %flags = ();
my ($verbose,$debug,$test) ;
GetOptions(
'verbose+' => \$verbose, --
'lib=s' => \@libs,
'debug:i' => \$debug,
'test|t=s' => \$test,
'flags=s' => \%flags,
);
print $verbose."\n";
print @libs."\n";
print $debug."\n";
print $test."\n";
foreach(keys %flags){ print "$_ => $flags{$_}\n" };