$ perl -MO=Deparse,-sv"'UNKNOWN'." 698666.pl
use constant ('DEBUG', 0);
use warnings;
use strict 'refs';
print "Hello World\n";
'UNKNOWN';
print "Goodbye Cruel Word\n";
698666.pl syntax OK