sub rolldice()
{
        # was: my $roll = int(rand(12)) + 1;

        my $d1 = int(rand(6)) + 1;
        my $d2 = int(rand(6)) + 1;
        my $roll = $d1 + $d2;
        return $roll;
}