use Tk;
use Tk::LabFrame;

my $listn =$mw->LabFrame(-label=>"New",
                        -labelside=>'acrosstop')->pack;
$listn =$mw->Scrolled(qw/Listbox -foreground red -selectforeground blue/)->pack;
$listn->grid(-row=>0,-column=>0,-columnspan=>2,-sticky=>'nsew');

foreach $key (sort keys %allevents) {
      $listn->insert('end', $key);
    }