# 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 );