Simple Test of Perl/Tk Popup Function