<perl>sub bei123_4o{out qq(<span style="font-size:100px">$A</span>);}</perl>
<perl script=bei123_4o>&bei123_4o();</perl>

<script>function bei123_4o(){new _baseportal_request(bei123_4o,_bei123_4o,0);}<… "

<script type="text/javascript">...</script>