Select Code to Download

use strict;
use warnings;
...
    when ('1') {$libObj->sub1()}
    when ('wibble') {$libObj->subWibble()}
}