use warnings;
use strict;

use ddd;

print "APPLE = $apple \n";

exit 0;