my $date = $ARGV[0];
$date or $date = `date --date='1 hour ago' +%Y-%m-%d`;
chomp $date;