use Tcl;

    $interp = new Tcl;
    $interp->Eval('puts "Hello world"');

##</code><code>##

    use Inline Tcl => <<END
        ... your tcl function definitions here
    END
    my $answer = tcl_function(@args);