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

##</code><code>##

use strict;
use warnings;