#!/perl/bin/perl
#
#  --
use strict;
use warnings;
use diagnostics;

my $test = "hello world\n";
my $stub = sub {$test = "goodbye world\n"};
print $test;
&$stub;
print $test;