my $x = 20; # Abstand vom linken Rand
my $y = 130; # Abstand vom unteren Rand
my $row_len = 10; # Anzahl Zeichen, nach denen spaetestens umgebrochen werden soll

_add_text( $x, \$y, 'Ganz langer Text mit vielen Worten', $row_len );