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