Select Code to Download

$datetime = $year.'-'.$mon.'-'.$mday.' '.$hour.':'.$min.':'.$sec.'.000
+';

#!/usr/bin/perl -w

...
print $date3;
# this is the format I am trying to get using Date::Calc
#$year.'-'.$mon.'-'.$mday.' '.$hour.':'.$min.':'.$sec.'.000';