perl -lwe "use warnings; print $!"