Select Code to Download

GetOptions( "one" => .....sub1().... ,
            "two"  => .....sub2()....,
...
sub sub3 {
print "sub three";
}

GetOptions( "one" => $three,
            "two"  => $two,
             "three" => $three );