#!perl

use strict;
use warnings;
use SDL;
use SDLx::App;
use SDLx::Text;

my $text = SDLx::Text->new();

for( qw/a w c Z/ ) {
	printf("Breite: %s\n", $text->text($_)->w);
}
exit(0);