$main->repeat(1000, sub { $log = qx(tail -f /var/log/messages) });

$main->Label(-textvariable => $log)->pack();