my $var = 123;
DebugPrint("Var is $var.\n");

sub DebugPrint {
  my $msg = shift;
  print "Called from $CallingFunction(): $msg";
}