理想的是跨平台的东西.
解决方法
CPAN可能是最好的方式.看看
Term::Screen:Uni：
require Term::Screen::Uni; my $scr = new Term::Screen::Uni; $scr->clrscr()
require Term::Screen::Uni; my $scr = new Term::Screen::Uni; $scr->clrscr()