https://www.php-resource.de/de/script/PHP-Scripte/Gaestebuecher/seq-PerlGB_14880