> perl -MO=Deparse,-p -e '$d, $e, $f = 1,2,3;'
-e syntax OK
($d, $e, ($f = 1), '???', '???');

##</code><code>##

> perl -MO=Deparse,-p -e 'print(1),print(2),print("\n");'
-e syntax OK
(print(1), print(2), print("\n"));

##</code><code>##

> perl -MO=Deparse,-p -e 'print 1, print 2, print "\n";'
-e syntax OK
print(1, print(2, print("\n")));

##</code><code>##

___
-DA
> perl -MPOSIX -le '$ENV{TZ}="EST";print ctime(1000000000)'
Sat Sep  8 20:46:40 2001