sub getDateTime {
    my ($sec,$min,$hour,$mday,$mon,$year) = localtime(time());

    return sprintf "%02d-%02d-%d %02d:%02d:%02d\n",
                   $mday, $mon+1, $year+1900, $hour, $min, $sec;
}