$ perl -Mstrict -cwe 'my ($x,$y)' -e syntax OK