Select Code to Download

C:\Documents and Settings\Josh>perl -MO=Concise -e "print @ARGV"
7  <@> leave[1 ref] vKP/REFC ->(end)
1     <0> enter ->2
...
5        <1> rv2av[t2] lK/1 ->6
4           <#> gv[*ARGV] s ->5
-e syntax OK

int
Perl_runops_standard(pTHX)
{
...
    TAINT_NOT;
    return 0;
}