use constant PIE => "Warm Apple";
print "pie: ", PIE, "\n";