perl -MTk -e 'tkinit->Dialog()->Show'