1. added use Tk::Pane; 2. Modified Canvas in mw->Scrolled to Pane 3. Added -sticky => 'nsew' in mw->Scrolled 4. Commented usage of $canvas->createWindow, ->update and ->configure 5. Modified occurrence of $canvas to $pane to ensure variable name matches usage