Select Code to Download

use strict; 
use warnings;
...
}

print Dumper(multiplex($params));

sub multiplex {
    my $ret = [[]];
...
    }
    $ret;
}