Hi,

maybe a Tk::Message widget would make that easier:

perl -MTk -e"tkinit->Message(-text=>qq/Multiline Text \n/x5,-justify => 'center')->pack; MainLoop"
Cheers, Christoph