Select Code to Download

# x.pl
# perl 5.8.8, Getopt::Long 2.35
...
          , 'int' => \$int
          );
print Dumper( $ink , $int );

# perl x.pl -ink
$VAR1 = 1;
...
# perl x.pl -ink -int
$VAR1 = 1;
$VAR2 = 1;