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

##</code><code>##

debugprint ("Now entering mysub...\n");
debugprint ("parameters are @_\n");