my $MESSAGE = 'Hello World!!!';

# This sub displays the $MESSAGE:
sub ShowMessage  { print "$MESSAGE\n"; }

sub ChangeMessage { $MESSAGE = shift; }