-<table width="100%" style="border-style: none;"><tr><td align="center"><table>
-<tr><td class="tab-head">Name </td><td>Jan Kratochvil</td></tr>
-<tr><td class="tab-head">English </td><td>technical: fluent, general: communicable</td></tr>
-<tr><td class="tab-head">Born </td><td>1979</td></tr>
-<tr><td class="tab-head">Sex </td><td>male</td></tr>
-<tr><td class="tab-head">Licenses</td><td>motorcycle, car</td></tr>
-<tr><td class="tab-head">eMail </td><td>$mailme</td></tr>
-<tr><td class="tab-head">Projects</td><td>@{[ a_href('http://www.jankratochvil.net/project/') ]}</td></tr>
-<tr><td class="tab-head">Resume </td><td>@{[ a_href('http://www.jankratochvil.net/resume/') ]}<br />
- [ @{[ a_href '/resume/Resume-JanKratochvil.pdf','PDF' ]}
- | @{[ a_href '/resume/Resume-JanKratochvil.txt','text' ]} ]</td></tr>
-<tr><td class="tab-head">OpenPGP </td><td style="font-family: monospace; text-align: left;">@{[ a_href '/pgp-JanKratochvil.txt',''
- .'pub 1024D/26A802B2 2004-01-17'.'<br />'
- .'sub 2048g/A74DF86D 2004-01-17 [expires: 2007-01-16]'
- ]}</span></td></tr>
-</table></td></tr></table>
+<table border="0" class="margin-center">
+HERE
+my @contact=__PACKAGE__->Contact();
+while (@contact) {
+ my $key=shift @contact;
+ my $val=shift @contact;
+ print <<"HERE";
+<tr>
+ <td class="tab-head">$key</td>
+ <td@{[ ($key ne "OpenPGP" ? '' : ' style="font-family: monospace; text-align: left;"') ]}>$val</td>
+</tr>
+HERE
+ }
+print <<"HERE";
+</table>