use Term::Screen; my $terminal = new Term::Screen; $terminal->clrscr();