(undef, $function_basefile, $function_line, $function) = caller(1);

(undef, $caller_basefile, $caller_line, $caller) = caller(2);

##</code><code>##

main -> sub1 -> sub2 -> UsageLogger

##</code><code>##

Mon Mar  7 07:09:12 2005 syscron.cc.umr.edu/syscron.cc.umr.edu unixdb: script = /afs/umr.edu/software/unixdb/bin/load-email-usage-userid.pl     function = UMR::SysProg::ADSObject::new function_file = /afs/umr.edu/software/umrperl/libs/UMR/SysProg/Exchange.pm     function_line = 43      caller = UMR::SysProg::Exchange::new    caller_file = /afs/umr.edu/software/unixdb/bin/load-email-usage-userid.pl       caller_line = 8 cwd = /afs/umr.edu/software/unixdb