08/08/17 10:53:13
use warnings;
use strict;
use diagnostics;
use utf8;
use open IO => ":encoding(cp932)";
binmode STDIN => ":encoding(cp932)";
binmode STDOUT => ":encoding(cp932)";
binmode STDERR => ":encoding(cp932)";
use Encode;
use feature qw( :5.10 );
use Time::HiRes 'sleep';
$|=1;
#----------------------------------
system q|cls|;
my @a;
@a=('ささやき','えいしょう','いのり','ねんじろ！');
my $b;
foreach $b (@a){
sleep(1);
say $b;
}
sleep(3);
say qq|\n\n勇者は灰になりました\n|;
↑やった！ウイザードリーだ！