How Embperl sub routine retun value?

[Albert Liu]

Hi,

Does anyone know how to return or pass a value inside Embperl sub routine?

Like 
[$ sub TTEST $]
   [- $aa = 2;
   <p>$aa is [+$aa+]
   [- return $aa; -]
[$ endsub $]

[- $bb = TTEST(); -]
   <p>$bb is [+$bb+]

The result is 

$aa is 2
$bb is 0

What is wrong?

Thanks
Albert