Select Code to Download

sub debugLogFunctionNameLineNum {
#debugLogFunctionNameLineNum((caller(0))[2],(caller(1))[3], @_);
...
    print $LOGFH "$header $input_msg\n";
    $writelog->up();
}

sub logLine {
    my ($text) = @_;
...
    $writelog->down();
    print $LOGFH "$header $text\n";
    $writelog->up();

sub EmailResults {
    debugLogFunctionNameLineNum((caller(0))[2],(caller(1))[3], @_);
...
        $smtp->quit;
    }
}