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

##</code><code>##

open my $fh, '>', 'data.txt' or die "Can't open: $!";

##</code><code>##

open(DICE, "data.txt");