$mw->after(100, sub { $pane->xview(moveto => 1) });

##</code><code>##

my $step = .05;
my $i = 1;
$mw->repeat(100, sub { $pane->xview(moveto => ++$i * $step) });