update bioperl example