use strict;
*PIE = \"Warm Apple";
print "pie: $PIE\n";