You might like these other solutions: Tcl which has a syntax like:

    use Tcl;

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

or Inline::Tcl which has a more traditional Inline approach. In it, you define Tcl functions in your Perl program and call them as if they were pure Perl, like so:

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

Phil