Select Code to Download

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

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