#vvvvvvvvvvvvvvv
eval {
#^^^^^^^^^^^^^^^

 # 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";

#vvvvvvvvvvvvvvvv
};

if ($@) {
	print "\nAn error occurred: \n $@ \n";
}
#^^^^^^^^^^^^^^^^

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