perl -MTk -lwe "for(tkinit){$_->Button(-text=>'test',-command=>sub{print'do anything you want here, i.e. call your favourite program'})->pack;$_->Text->pack};MainLoop"