perl -e"use Tk; $mw=tkinit; $mw->Button(-command=>sub{ Tk::exit })->pack; MainLoop; "