#!/usr/bin/perl -w
use Getopt::Long;

$myOpt=0;

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