Help for this page

Select Code to Download


  1. or download this
    use system();
system ('cls'); # or equivalent on your system.
  2. or download this
    use Term::Cap;

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

print $t->Tputs("cl");
  3. or download this
    use Term::Screen;

my $terminal = new Term::Screen;

$terminal->clrscr();