Select Code to Download

use strict;
use warnings;
...
use constant PEAR  => "bad";

1;

use strict;
use warnings;
...
use ddd;

print "APPLE = " . APPLE . "\n";