Select Code to Download

#!/usr/bin/perl -w
 use strict;
...
 my $win = new Curses;
 clear($win);
 #$win->clear(); #may also work

  $win->addstr(12, 34, 'perlmonks forevah');   
  #or:
  #$win->addstr(12, 34, '                 ');