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

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