<perl>
sub split
{###############
out "$_[0]  $_[1]";
}###############
out<<EOF;
<script>
function _get(x)
{
 document.getElementById("out").innerHTML=x;
}
</script>
<a href="javascript:get('Nummer1','Nummer2')">Splitten</a>
<div id="out" width=500 height=200 style="border:1px solid red"></div>
EOF
</perl>
<perl runat=client name=get return=_get>
##################
&split($_[0],$_[1]);
</perl>

<perl>
sub split
{###############
out "$_[0]  $_[1]";
}###############
out<<EOF;
<script>
function _get(x)
{
 document.getElementById("out").innerHTML=x;
}
</script>
<a href="javascript:get('Nummer1','Nummer2')">Splitten</a>
<div id="out" width=500 height=200 style="border:1px solid red"></div>
EOF
</perl>
<perl script=get>
##################
&split($_[0],$_[1]);
</perl>