my $date = @ARGV ? shift @ARGV : yesterday();