A/B testing experiment in Perl