Help for this page

Select Code to Download

Select or download this

my ($apple, $pear, $orange);        # lexicals

...
# or

use vars qw($apple $pear $orange);  # global package variables