#! /usr/bin/perl

use CGI ':standard';

print "Content-type:html\n\n";

$dice1= int (rand(6)+1);
$dice2= int (rand(6)+1);

$rolla = param('rolla');
$rollb = param('rollb');


print "<img src=http://localhost/pix/dice$dice1.gif>";
print "<img src=http://localhost/pix/dice$dice2.gif>";

$total= $dice1+$dice2;
print "your first roll was" ;

print "<img src=http://localhost/pix/dice$rolla.gif>";

#rollb won't show up#
print "<img src=http://localhost/pix/dice$rollb.gif>";

if (($total ==7)or($total ==11)){
print "you win!!!";
exit()
} elsif (($total ==2) or ($total ==12)){
print "loser";
exit()
}

#I believe the problem with rollb is on this line#
print "<a href= dice.cgi?rolla=$dice1 & rollb=$dice2>roll again</a>"