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