<pre>&lt;html&gt;&lt;head&gt;&lt;/head&gt;
&lt;body&gt;
&lt;perl&gt;
out &quot;ggf. serial Array &lt;b&gt;\@kinder=(\&quot;Klaus\&quot;,\&quot;Ingrid\&quot;,\&quot;Stefan\&quot;)&lt;/b&gt; und \$zeit=time() hinzuf&uuml;gen.&lt;br&gt; &quot;;
out &quot;&lt;h3&gt;&lt;a href='baseportal.pl?show=$htx'&gt;Code anzeigen&lt;/a&gt;&lt;/h3&gt;&quot;;
$zeit=time();
@kinder=(&quot;Hans&quot;,&quot;Huber&quot;,&quot;Michael&quot;);
if($_get{cmd} eq &quot;new&quot;)
{######################
out &quot;&lt;p&gt;put!: TEXT: $zeit TEXTAREA: @kinder&lt;/p&gt;&quot;;
put [&quot;TEXT&quot;,$zeit,&quot;TEXTAREA&quot;,serial(@kinder)],&quot;/iqws/Serial&quot;;
}
out &quot;&lt;h3&gt;&lt;a href=$_link&amp;cmd=new&gt;diesmal serial-Werte hinzuf&uuml;gen&lt;/a&gt;&lt;/h3&gt;&quot;;
&lt;/perl&gt;
&lt;do action=all db=/iqws/Serial listfields=#10&gt;
&lt;/body&gt;&lt;/html&gt;
&lt;div style=&quot;float:bottom&quot;&gt;&lt;p&gt;&lt;center&gt;&lt;banner type=leaderbord&gt;&lt;/center&gt;&lt;/p&gt;&lt;/div&gt;</pre>