Here is my iteration of this functionality; I am not so interested in seeing the graphic image of the dice, but rather just getting roll results. quester's suggestions were appreciated. For what it's worth:

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";
[download]

yields this result:

Rolling first die resulted in: 3
Rolling second die resulted in: 5