**I have this code and im trying to make it so it can work in a browser but all that comes up is the text. What do i have to change so that this game actually works do i have to make forms or anything like that. I had someone say that i had to change it into PHP or CGI but i dont quite know how to do it.**

#!/usr/bin/perl

# How many games would you like to roll?

$iterations = 1000;

for ($count = $iterations; $count >= 1; $count--) {

print "$count \n";

# Bankroll per game. Rules are set up for a $5 bet on a 3x/4x/5x table.

$bankroll = 200;

$rollcount = 0;

$high = 200;

$itson = 1;

while ($itson == 1) {

$die1 = int(rand() * 6) + 1;

$die2 = int(rand() * 6) + 1;

$roll = $die1 + $die2;

$rollcount = $rollcount + 1;

if ($roll == 7 || $roll == 11) {

$bankroll = $bankroll + 5;

# print "W $roll $bankroll $rollcount\n";

if ($bankroll > $high) {

$high = $bankroll;

}

}

elsif ($roll == 2 || $roll == 3 || $roll == 12) {

$bankroll = $bankroll - 5;

# print "L $roll $bankroll $rollcount\n";

}

else {

$setnum = $roll;

$notcrapped = 1;

while ($notcrapped == 1) {

$die1 = int(rand() * 6) + 1;

$die2 = int(rand() * 6) + 1;

$roll = $die1 + $die2;

$rollcount = $rollcount + 1;

if ($roll == $setnum) {

$bankroll = $bankroll + 35;

# print "W $roll $bankroll $rollcount\n";

if ($bankroll > $high) {

$high = $bankroll;

}

$notcrapped = 0;

}

if ($roll == 7) {

if ($setnum == 4 || $setnum == 10) {

$bankroll = $bankroll - 20;

}

if ($setnum == 5 || $setnum == 9) {

$bankroll = $bankroll - 25;

}

if ($setnum == 6 || $setnum == 8) {

$bankroll = $bankroll - 30;

}

# print "L $roll $bankroll $rollcount\n";

$notcrapped = 0;

}

}

}

# Game ends when you have less than $5

if ($bankroll < 5) {

$losses = $losses + 1;

$itson = 0;

}

# It also ends if youmake $1000

if ($bankroll >= 1000) {

$wins = $wins + 1;

$itson = 0;

}

}

if ($high > $biggest) {

$biggest = $high;

}

if ($rollcount > $mostrolls) {

$mostrolls = $rollcount;

}

$bigrollcount = $bigrollcount + $rollcount;

$bighigh = $bighigh + $high;

}

print "$iterations Iterations \n";

print "Ave Rollcounts: " . sprintf("%.3f", $bigrollcount/$iterations) . "\n";

print "Ave Rollcounts Hours: " . sprintf("%.3f", int($bigrollcount/$iterations)/180) . "\n";

print "Most Rollcounts: $mostrolls\n";

# Most Rollcounts Days assumes 3 rolls/minute.

print "Most Rollcounts Days: " . sprintf("%.3f", ($mostrolls/180)/24) ."\n";

print "Ave Most Won: " . ($bighigh/$iterations) . "\n";

print "Biggest Win: $biggest\n";

print "$wins Wins | $losses Losses";