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

##</code><code>##

Variable "$PIE" is not imported at ./constant.pl line 7.
Global symbol "$PIE" requires explicit package name at ./constant.pl line 7.
Execution of ./constant.pl aborted due to compilation errors.