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

C:\My\Work\Perl\getopt>perl -MGetopt::Std -E "say $Getopt::Std::VERSION"
1.07


This is perl 5, version 16, subversion 2 (v5.16.2) built for MSWin32-x86-multi-thread
(with 1 registered patch, see perl -V for more detail)