Solaris

#!/usr/local/bin/perl
package TrxLog;
%log_begin="";
%log_end="";
%log_msg="";
%log_start_time="";
%log_end_time="";
$ix=0;
@arr_msg="";
if (! -e "TrxLog.txt"){
        open (TRX,">TrxLog.txt");
    }else{
                open (TRX,">>TrxLog.txt");
                }

sub begin{
        my($parm)=@_;
        $log_start_time{$parm}=localtime(time());
        $log_begin{$parm}=time();
        $log_msg{$parm}="** $parm Process **";

        }

sub end{
        my($parm)=@_;
        $log_end_time{$parm}=localtime(time());
        $log_end{$parm}=time();
        my($msg)=$log_msg{$parm};
        my($diff)=$log_end{$parm} - $log_begin{$parm};

        my ($tsec,$tmin,$thour,$tmday,$tmon,$tyear,$twday,$tyday,$tisdst) =
        gmtime($diff);

        print TRX "$msg\n\n";
        print TRX "\n";
        print TRX "\tStarted  at $log_start_time{$parm}\n";
        print TRX "\tFinished at $log_end_time{$parm}\n";
        print TRX "\tElapsed Time Hours:$thour";
        print TRX " Minutes:$tmin";
        print TRX " Seconds:$tsec\n";

        $ix=0;
        while ($arr_msg[$ix]){
                print TRX "$arr_msg[$ix]\n";
                $ix++;
        }

        &close_log;
}
sub log_trx{
        my($msg)=@_;
        $arr_msg[$ix]=$msg;
        $ix++;
}
sub close_log{
        print TRX "**************** End of Session **************************\n\n";
        close TRX;
}

sub begin{
my($parm)=@_;
$log_start_time{$parm}=localtime(time());
$log_begin{$parm}=time();
$log_msg{$parm}="** $parm Process **";
}

$dnbLog = new TrxLogObj("DNB Process");
$otherLog = new TrxLogObj("Other Process");

$dnbLog->start();
$dnbLog->log("Something interesting happened here");

$otherLog->start();
# Do your process stuff here...
$otherLog->stop();

$dnbLog->stop();