#!/usr/bin/perl
use 5.10;
use strict;
use warnings;

use Getopt::Long;

my ($enddate, $csv_file) = (0, 0);
my $DEBUG = 0;

GetOptions(
  'enddate|ed=s'    => \$enddate,
  'sales-table|s=s' => \$csv_file,
  'debug|d'         => \$DEBUG,
) or die_usage();

die_usage() unless ($enddate && $csv_file);

sub die_usage{
  say "Usage: $0 --ed end_date --sales-table /path/to/sales/file";
  say "Use -d or -debug for debugging";
  exit;
}