sub hochkantschrift {
        my ($STRING,$FONT) = @_; 
        my $FONTSIZE = 12;
        my $return = join ('<br>',split (//,$STRING));    # Default, falls bei der andere Variante etwas schief geht

        my $modul = 1;
        eval "use GD; use GD::Text; use GD::Text::Align; 1;" 
        or return $return;
        
        my $gd_text = GD::Text->new() or return $return;
        $gd_text->set_font($FONT, $FONTSIZE) or return $return;
        $gd_text->set_text($STRING) or return $return;
        my ($w, $h) = $gd_text->get('width', 'height');

        my $im = GD::Image->new($h*1.3,$w) or return $return;
        my $white = $im->colorAllocate(255,255,255);
        my $color = $im->colorAllocate(0,0,0);  # ist Schwarz
        $im->transparent($white); 
        
        my $align = GD::Text::Align->new($im) or return $return;
        $align->set_font($FONT, $FONTSIZE);
        $align->set_text($STRING);
        $align->draw($h,$w,3.14/2);
                
        open my $file,'>','hochkantschrift.png';
        binmode ($file);
        print $file $im -> png;
        close $file;
        
        return $return;
}