Select Code to Download

use strict;
use warnings;

...

my @ary = qw( test another_test third_test );
my $sub_i_want_to_call = $ary[rand(@ary)];