use Getopt::Std;
use strict;

use vars qw/$opt_i/;
getopt('i');

print "Increment value is $opt_i\n";