2;0 juerd@ouranos:~$ perl -MO=Deparse,-p -e'(@dir) = readdir(ID) || print "X"'
(@dir = (readdir(ID) || print('X')));
-e syntax OK