Select Code to Download

#!/usr/bin/perl
use strict;
...

dispatch(qw/one two three/);
dispatch(qw/three two one kaboom silence/);