#!perl
if (1) {
print "dent\n";
}

completely invalid "!@#$%^&*(
