sub this_sub
{
   $this_variable = "Jeff";
}

sub that_sub
{
   print "Hello "."$this_variable";
}