use Tk;
use Tk::ROText;
use XML::Simple;
use Data::Dumper;

use strict;
use warnings;

my $mw = MainWindow->new();
my $f = $mw->Frame(-border => 1)->pack(-side => "left", -fill => "both");
my $envs_list;
$envs_list = $f->Scrolled("Listbox", -scrollbars=>"e", -selectmode=>"extended")->pack(-fill => 'both');
$envs_list->insert("end", "abcd");
$envs_list->insert("end", "abcd");
$envs_list->insert("end", "abcd");
$envs_list->insert("end", "abcd");
print $envs_list->cget('-exportselection');

MainLoop;