Select Code to Download

#!perl -w
use strict;

...

my $method = rand > 0.5 ? 'foo' : 'bar';
$dispatch{ $method }->('Test');