#/!usr/bin/perl 
use warnings;
use strict;
use Encode;
my $n=0;
$|=1;
#本例以UTF8格式存储！
while (<DATA>) {
print "\n\n";
my @word=(split //,decode ("utf8",$_));
 for (@word) {
   print "     " x $n, encode ("gb2312",$_),"\n";
   #sleep(0.8);
   select (undef,undef,undef,0.08);
}
   system ("cls");
$n++;
}
print "exit 2 seconds later\n";
select (undef,undef,undef,2);
__DATA__
   将进酒...李白
君不见，黄河之水天上来，奔流到海不复回。
君不见，高堂明镜悲白发，朝如青丝暮成雪。
人生得意须尽欢，莫使金樽空对月。
天生我材必有用，千金散尽还复来。
烹羊宰牛且为乐，会须一饮三百杯。
岑夫子，丹丘生，将进酒，杯莫停。
与君歌一曲，请君为我侧耳听：
钟鼓馔玉不足贵，但愿长醉不复醒。
古来圣贤皆寂寞，唯有饮者留其名。
陈王昔时宴平乐，斗酒十千恣欢谑。
主人何为言少钱，径须沽取对君酌。
五花马，千金裘，呼儿将出换美酒，
与尔同销万古愁。
复制代码