use strict; use warnings; print "

\n"; for (my $i = 0; $i < 10; $i++) { my $x = int(rand(6)) + 1; print "
• $i回目 : サイコロは$x
\n"; } print "

\n";