#!/usr/bin/perl -w
 use strict;
 use Curses;

 my $win = new Curses;
 clear($win);
 #$win->clear(); #may also work