1 #!/usr/bin/perl 2 use strict; 3 use warnings; 4 5 use Getopt::Long; 6 my $test = "true"; 7 my $lib ; 8 9 GetOptions("libFile=s@" => \$lib, 10 "test=s" => \$test, 11 ); 12 13 if($test eq "true") { 14 if( (scalar @$lib) > 0) { 15 print "Pass\n"; 16 } 17 }