$ perl -Mstrict='}); ()=<>; print $.; ({' -le '""' /etc/passwd
    23