use Perl

(gdb) call Perl_eval_pv(my_perl, "Carp::cluck('Hello world!')", 0)
Hello world! at lib/File/Basename.pm line 52
        File::Basename::BEGIN() called at (eval 28) line 0
        eval {...} called at (eval 28) line 0
        require File/Basename.pm called at lib/File/Copy.pm line 55
        File::Copy::_catname('file-98616', 'lib') called at lib/File/Copy.pm line 112
        File::Copy::copy('file-98616', 'lib') called at lib/File/Copy.t line 125
$8 = (SV *) 0x1008e4838

Yes, it's logical, and I'm sure it's been done before, but I don't remember anyone noting it as a useful hack. Dear lazyweb, which prior art have I missed?