perl -lwe "print $!"