$m = 300;
while(true)
   {
   $i++;
   if (int rand 5) {$m += 6.375} else {$m -= 25};
   print "m now $m \t (roll $i)\n";
   exit if $m < 0 or $m > 100000;
   }

print "Exited with m $m \n";
print "In other words, we were busted!" if $m < 0;