use strict;

my $diceone = int(rand(6)) + 1;
my $dicetwo = int(rand(6)) + 1;

print "Rolling first die resulted in: ";
print $diceone-1;
print "\n";
print "Rolling second die resulted in: ";
print $dicetwo-1;
print "\n";