[Perl/Curses] window erstellen?

[Giuly]

Hallo,
ich versuche mich grade an perl mit Curses. Irgendwie schaff ich das aber nicht, ein windows zu erstellen. Es soll ganz oben sein und 1Zeile hoch.
Hier mal, was ich bis jetzt zusammengeperlt hab (wie gesagt, geht nicht):

use Curses;
initscr;
my $startx, $starty, $width, $height, $hans;

$height = 1;
$width = COLS;
#$starty = (<LINES> - $height) / 2;
#$startx = (<COLS> - $width) / 2;

$hans = new Curses;
setsyx($hans, 0, 0);
box($hans, 0 , 0);
wrefresh($hans);

wprintw($hans, "Hello world!\n");
getch();
endwin;

[peschmae]

Ich weiss nicht genau wo der Fehler liegt, aber Perl-Ports der Beispiele aus dem NCurses-HOWTO gibts hier http://www.linux.lk/~anuradha/ncurses/ - die gehen und scheines ähnliches zu tun wie das was du erstmal willst.

MfG Peschmä