sri@odyssey:~$ perl -MO=Deparse -e 'print qw(test) while 1'
print 'test' while 1;
-e syntax OK