ben@Tyr:~$ perl -MO=Deparse -wle#
BEGIN { $^W = 1; }
BEGIN { $/ = "\n"; $\ = "\n"; }
-e syntax OK