use vars qw( $PIE );
*PIE = \"Warm Apple";
print "pie: $PIE\n";