Select Code to Download

package Foo;
use strict;
...
print "do_baz\n";
eval { Baz::do_baz('one','two'); }; print $@;
# Please don't give arguments to do_foo() at tmp.pl line 14.