Perl program which simulates the outbreak of a virus based on a transmission rate