Here is the MakeDate sub:

sub MakeDate {
    my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localti
+me(time);
    $year = ($year + 1900) ; $mon++ ;
    my $date = sprintf("%04D%02d%02d", $year, $mon, $mday);
    return $date;
}
[download]

That should be a string right??