Select Code to Download

#!/usr/bin/perl  -T
use strict;
...
# fix the dates to MySQL format:                                      
+                                                              
my $date1       =       UnixDate($raw_date1,"%Y-%m-%d");              
+                                                   
print "$raw_date1 was changed to $date1\n";

jfzuelow@city-liza-lnx:~$ ./odd-date.pl                               
+         
In blank date check.  But is the date truly blank?  It is in fact ""  
+              
2013020200:00:00 was changed to 2013-02-02

jfzuelow@city-liza-lnx:~$ ./odd-date.pl "15 jan"
2013011500:00:00 was changed to 2013-01-15

jfzuelow@city-liza-lnx:~$ ./odd-date.pl "jan 15"
In blank date check.  But is the date truly blank?  It is in fact "jan
+ 15"
2013020200:00:00 was changed to 2013-02-02