http://wiki.perl-community.de/bin/edit/Spielwiese/EineL%F6sung?topicparent=Spielwiese.WebStart