[05:53][nick:~/monks]$ cat 1134359.pl
#! perl -w
use strict;

use Getopt::Long;
Getopt::Long::Configure( "bundling", "ignorecase_always" );

my $myOpt=0;

GetOptions('S=i'=> \$myOpt);
print"S: $myOpt\n";

__END__

[05:53][nick:~/monks]$ perl 1134359.pl -S 6
S: 6
[05:53][nick:~/monks]$ perl 1134359.pl -s 6
S: 6
[05:53][nick:~/monks]$ perl 1134359.pl -S6
S: 6
[05:53][nick:~/monks]$ perl 1134359.pl -s6
S: 6


##</code><code>##

[05:53][nick:~/monks]$ perl 1134359.pl -zois6nks
Unknown option: z
Unknown option: o
Unknown option: i
Unknown option: n
Unknown option: k
Option s requires an argument
S: 6