open(DICE, ">data.txt") or die "Can't open: $!";