[! use File::Basename ; !]
[- $r = shift ; -]
<div align="center">
<p class="cHeadline">[= login_head =]</p>

[- Execute ('loginform.epl', $r -> app -> posturl('addsel.epl')) ; -]
</div>

[#
[! use Data::Dumper; !]
[- $r = shift -]

<PRE>
[+ Dumper $r->{config} +]
</PRE>
#]