my $date = shift || '12/DEC/2001:17:23:09';