Hi,
I think you should also give a look to Term::Slang.
The Slang library is supposed to be easier to use and more portable than (n)curses.

-- 
perl -l -e "eval pack('h*','072796e647028222d2d202a0e49636f6c61637022292b3');"