Select Code to Download

my $table = $MainFrame-> MListbox(  -selectmode => 'single',
                                   -columns=>[
...
    table->configure(-yscrollcommand => ['set', $scroll]);

    $scroll->pack(-side => 'right', -fill => 'y');

 error:Not a CODE reference at C:/Perl/site/lib/Tk/MListbox.pm line 72
+3.

...
 Tk::MListbox::yscrollCallback at C:/Perl/site/lib/Tk/MListbox.pm line
+ 700
 <Configure>
 (command bound to event)

error:Not a CODE reference at C:/Perl/site/lib/Tk/MListbox.pm line 720
+.

...
 Tk::Scrollbar::ButtonDown at ..\blib\lib\Tk\Scrollbar.pm (autosplit i
+nto ..\blib\lib\auto\Tk\Scrollbar\ButtonDown.al) line 159
 <Button-1>
 (command bound to event)