my $txt = $wm->Scrolled('Text', ... );
...

$txt->bind('<PageUp>', sub { $txt->yviewScroll(-1, 'units') } );
$txt->bind('<PageDn>', sub { $txt->yviewScroll( 1, 'units') } );