Select Code to Download

C:\test>perl -MO=Deparse,p -e" print (shift @a), (shift @a), "\n";"
print(shift @a), shift @a, \'n';
-e syntax OK

print( (shift @a), (shift @a), "\n" );

print shift @a, shift @a, "\n";