my $var = "Hi!";
sub func {
   print("$var\n");
}
func();