#!/usr/bin/perl

use strict;
use warnings;
use CGI qw(:all);

charset('iso-8859-1');
print header(-type=>'text/html');

print 
  start_html, 
  h1('Überschrift'),
  p('Das ist Text und ein ', a({-href=>'http://example.org'}, 'Link')),
  end_html;