Select Code to Download

use warnings;
use strict;
...
print "APPLE = $apple \n";

exit 0;

use strict;
use warnings;
...
Readonly our $pear => "bad";

1;