sub makeDate {
    (my $sec, my $min, my $hour, my $mday, my $mon, my $year, my $wday, my $yday, my $isdst) = localtime(time);
    $year += 1900;

    $sec =~ s/^(\d)$/0$1/;
    $min =~ s/^(\d)$/0$1/;
    $hour =~ s/^(\d)$/0$1/;
    $mon++;
    $mon =~ s/^(\d)$/0$1/;
    $mday =~ s/^(\d)$/0$1/;

    my $date = "$mon\_$mday\_$year\_$hour$min$sec";
    return $date;
}