Select Code to Download

#!/usr/bin/perl

...
}
$mw->after(1, sub { $pane->yview(moveto => 1) } );
MainLoop;