my $start_date = $ARGV[0] || 'bogus';
die "bad argument" unless $start_date =~ /\d{8}/;
my $end_date = $ARGV[1] || 'bogus';
die "bad argument" unless $end_date =~ /\d{8}/;
...