#!/usr/bin/env perl 
use strict;
use warnings;

my $logline;

foo ();

sub foo {
    $logline = 'Now we have called foo';
    bar ();
}

sub bar {
    Log ();
}

sub Log {
    print "Logging: $logline\n";
}