use strict;
use vars qw($baz);
print_baz();
$baz = "Hello\n";
print_baz();

sub print_baz {print $baz};