#!/usr/bin/perl
use strict;
use warnings;
use Getopt::Long;

my ( # options
	$verbose,
	$debug,
	$file,
	@columns,
);

$file= 'default.txt';

die "Use --help for options\n" unless  GetOptions(
	'v'          => \$verbose,
	'verbose!'   => \$verbose,
	'debug+'     => \$debug,
	'file=s'     => \$file,
	'c|column=i' => \@columns,
	'h|help'     => sub {
		print <<HELP;
Help text here...
HELP
		exit;
	},
);

print "OKAY\n";

# Program goes here...