sub dieroll {
        $retval = int (rand(6)) + 1;
}
