this is a robocode written in perl.