Thanks again :-)

I was able to get this work after looking at http://search.cpan.org/dist/Tk/pod/Popup.pod with the following line changed:

my (@popup_opts) = (-popover => $mw, -overanchor=>'c', -popanchor=>'c');

It is working the way I want it to now. Thank you so much for your help. :)

John