...
eval {require "JAPH"};
print "Hello mum!\n";
die

OUTPUT
Hello mum!
Can't locate JAPH in @INC ...
...
) at test.pl line xx
       ... propagated at test.pl line yy.