my $raw_date1 = $ARGV[0]; 
# Default to today if date is blank:
if ( $raw_date1 eq "" ) { ...