use strict;
use warnings;

Logit ();

sub Logit {
    Log ("In Logit");
}

sub Log {
    my $str =shift;
    my ($package, $filename, $line, $subroutine) = caller 1;
    
    print "$subroutine $filename ($line): $str\n"
}
##</code><code>##

main::Logit noname.pl (4): In Logit