RosettaCodeData/Task/Variables/Perl/variables-1.pl

sub dofruit {
  $fruit='apple';
}

dofruit;
print "The fruit is $fruit";