Thank you all for responding to my query

The usage of sticky solution suggested by tybalt89 helped me.

Here are the changes i made to the original code i pasted when i started this thread to get a neat solution.

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
[download]