1. Use : Term::Screen:Uni require Term::Screen::Uni; my $scr = new Term::Screen::Uni; $scr->clrscr() ^ ^ $scr->clrscr() 2. Use : Term::ANSIScreen use Term::ANSIScreen qw(cls); cls(); 3. Use :…