Select Code to Download

#! /usr/bin/perl
use strict;
...
           -command => sub { $lbox->selectionClear(0, 'end') })->pack;

MainLoop();