# Tie STDOUT to the ROText box so that the messages to STDOUT appear there
tie (*STDOUT, 'Tk::ROText', $widget);