use Getopt::Std;
use strict;

my %opt;
getopt('i', \%opt);

print "Increment value is $opt{i}\n";