but now it is not working here is the code i

That doesn't compile ;)

How do I post a question effectively?

 perl -MTk -e " $mw = tkinit; $mw->Button( -command => [ $mw, q/destroy/ ] )->pack; MainLoop; "