sub LOG { 
    my $msg = shift;
    my @cl = caller(1);

    print "sub ", $cl[3], " says: ", $msg;
}