#! /usr/bin/perl

use CGI ':standard';

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

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

$match = param('match');
$roll = param ('roll');



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

if ($roll== 1) 
{

}
$rolla = $dice1 ;
$rollb = $dice2 ;

$total= $dice1+$dice2;

print "$rolla";
print "$rollb";
print "$total";
if ($total ==7)
{
print "lucky seven";
print "<a href= http://localhost/>play again</a>" ;
exit()
} elsif ($total ==11) {
print "eleven wins";
print "<a href= http://localhost/>play again</a>" ;
exit()
}elsif ($total ==2) {
print "snake eyes";
print "<a href= http://localhost/>play again</a>" ;
exit()
}elsif ($total ==12) {
print "double six";
print "<a href= http://localhost/>play again</a>" ;
exit()
}
print "<a href= dice.cgi>roll again</a>"