Select Code to Download

use Tk;
my $mw = MainWindow->new();
...
    $text->insert('end', $curline);
    
}

open(FH,"tail -f -n 1 logifle") || die "Could not tail: $!";