use Getopt::Long qw(
	:config
	posix_default
	gnu_compat
	bundling
	no_auto_abbrev
	no_ignore_case
);

my $column = 1;

GetOptions(
	'column|c=i' => \$column,
) or die;
die if $column < 1;