BEGIN { $^W = 1; }
use constant ('DEBUG', 0);
do {
    print "Hello, world!\n"
};
test.pl syntax OK