$mw->toplevel->iconbitmap($filename);

But there can be issues. See the help I was given in Tk oddity with Label, iconbitmap and listbox.

Regards,

John Davies

Update: Added code tags