#!/home/ben/software/install/bin/perl
use warnings;
use strict;

sub debugmsg
{
    my ($msg) = @_;
    my (undef, $file, $line) = caller (0);
    printf ("%s:%d: ", $file, $line);
    if ($msg) {
	print $msg;
    }
    print "\n";
}

sub othersub
{
    debugmsg ("Here I am.");
}

debugmsg ("Nothing special to say");
othersub ();
debugmsg ();