my $trim = $listbox->size - $maxlines; $listbox->delete(0, $trim-1) if trim > 0;