$ perl -MO=Deparse
#!perl -w
^D
BEGIN { $^W = 1; }
- syntax OK