sub do_remove {
my ($x, $y) = $main_clist->get_pointer;
my ($row, $column) = $main_clist->get_selection_info($x, $y);
$column = 0;
if (defined $row && defined $column) {
my $text = $main_clist->get_text($row, $column) || undef;
if (defined $text) {
print $text . "\n";
}
 }
  }