A perl module to make a choice with the choose command line util