sub dofruit {
  $fruit='apple';
}

dofruit;
print "The fruit is $fruit";