Re^2: PERL/Tk Scrolled Textbox: How do I tell it to automatically scroll down?

Hi, the question was how to have it automatically scroll to the end

#!/usr/bin/perl --
use strict;
use warnings;

use Tk;
my $mw = tkinit();
my $l  = $mw->Scrolled(qw' Text -height 2');
$mw->Button(
    -text => 'add',
    -command => sub {
        $l->insert( 'end', localtime() . "\n" );
        $l->see('end');
    }
)->pack;
$l->pack;
$l->insert( 'end', "hi\nthere\n" );
MainLoop();
[download]

Comment on Re^2: PERL/Tk Scrolled Textbox: How do I tell it to automatically scroll down? Download Code