Select Code to Download

#!/usr/bin/env perl

...
$top->bind('all', '<Button-3>', sub { scroll_off() });

MainLoop;

#!/bin/sh
# \
...

bind all <Button-1> scroll_on
bind all <Button-3> scroll_off