Select Code to Download

$value = $widget->cget('-option');
...
@list = $widget->configure('-option');

use strict;
use warnings;