perl -MTk -MTk::StayOnTop -e 'tkinit->stayOnTop();MainLoop()'