{
   my $msg = "Hi randal!";
   sub hi {
      print "$msg\n";
   }
}