in reply to Tk and MainLoop
update: try -command=>[$mw => 'destroy']
Thanks for ur response.
Its working fine for me now.
Please let me know whether i can use Win32::Gui.
Million Thanks.