# x.pl
# perl 5.8.8, Getopt::Long 2.35

use Data::Dumper;
use Getopt::Long;

my ( $ink , $int );
GetOptions( 'ink' => \$ink
          , 'int' => \$int
          );
print Dumper( $ink , $int );

##</code><code>##

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

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