Select Code to Download

#!/usr/bin/perl

...
    $label->configure(-text => "num elms = " . $lb->size());
}
exit;