Select Code to Download

$ touch foo.pl
$ perl -we'use diagnostics; require "foo.pl"'
...
Uncaught exception from user code:
        foo.pl did not return a true value at -e line 1.
 at -e line 1

$ echo "a.pl did not return a true value at ./require.plx line 7." | s
+plain
a.pl did not return a true value at ./require.plx line 7 (#1)
...
    it compiled correctly and ran its initialization code correctly.  
+It's
    traditional to end such a file with a "1;", though any true value 
+would
    do.  See perlfunc/require.