# A "500 average" (having won half of the games played):

$games_played = 10;
$games_won = 5;
$average = $games_won / $games_played * 1000;
print "Average is $average, having won $games_won out of $games_played games.\n";

# Fatal error (played no games and won no games):

$games_played = 0;
$games_won = 0;
$average = $games_won / $games_played * 1000;
print "Average is $average, having won $games_won out of $games_played games.\n";

print 'Program ends normally by "Falling off the bottom"...';