eval { use Tk; }
if($@){ goto &cli }
else { MainLoop(); }