X-Git-Url: http://git.jankratochvil.net/?a=blobdiff_plain;f=Contact.pm;h=296ae8cebae11dd80691b00c24c52ff394f4b91b;hb=d23e816885f7627a56a72419f989dd5579be306e;hp=73e982f21d56e36967dd884e44e8ecc9dfe140a0;hpb=f37f652212eb6cb31136488d14d2c2a3908fe30a;p=www.jankratochvil.net.git diff --git a/Contact.pm b/Contact.pm index 73e982f..296ae8c 100644 --- a/Contact.pm +++ b/Contact.pm @@ -25,7 +25,6 @@ use strict; use warnings; use My::Web; -require CGI; Wrequire 'resume::ResumeJanKratochvil'; use Carp qw(confess cluck); @@ -41,7 +40,7 @@ My::Web->heading(); print <<"HERE"; -
+
HERE my @contact=resume::ResumeJanKratochvil->Contact(); my %keys=map(($_=>1),qw(Name eMail Projects OpenPGP)); @@ -59,7 +58,7 @@ HERE } cluck join(" ","Not found keys:",keys(%keys)) if keys(%keys); print <<"HERE"; -
+ HERE