[steve@kirk ~]$ /tmp/bleadperl/bin/perl5.9.5 -Mstrict \
-Mwarnings -le'sub complain{ require Carp; \
Carp::carp("This will work!"); } complain'
This will work! at -e line 1
        main::complain() called at -e line 2