use system();
system ('cls'); # or equivalent on your system.

##</code><code>##

use Term::Cap;

$t = Tgetent Term::Cap {TERM=>undef, OSPEED=>9600};

print $t->Tputs("cl");

##</code><code>##

use Term::Screen;

my $terminal = new Term::Screen;

$terminal->clrscr();