A market simulation in Perl