C:\My\Work\Perl\getopt>getopt-01.pl -a -b Test
C:/Perl/site/lib
C:/Perl/lib
.
$VAR1 = [];
end of perl

C:\My\Work\Perl\getopt>/perl/bin/perl getopt-01.pl -a -b Test
C:/Perl/site/lib
C:/Perl/lib
.
$VAR1 = [
          '-a',
          '-b',
          'Test'
        ];
a exists
b = Test
end of perl