Embperl2 and Execute

[Marek Matis]

Hi,
I have problem with Execute (EmbPerl2.0r3).

[-
@tmp = (1 .. 3);

foreach $r (@tmp) {

$fdat{'test_'.$r} = $r;
$out = "<input type='text' name='test_$r' />\n";
Execute ({ input => \$out });
}
-]


Output is: 

<input type='text' name='test_1' / value="1">
<input type='text' name='test_1' / value="1">
<input type='text' name='test_1' / value="1">


I need this: 

<input type='text' name='test_1' / value="1">
<input type='text' name='test_2' / value="2">
<input type='text' name='test_3' / value="3">



Thanks
Marek