Help for this page
open(DICE, ">data.txt") or die "Can't open: $!";
open my $fh, '>', 'data.txt' or die "Can't open: $!";
open(DICE, "data.txt");