sub debugprint {
    if (defined ($DEBUG)) {print scalar localtime , " : ", @_};
}