my $date;
if (@ARGV) {
   $date = $ARGV[0];
}