Select Code to Download

#!/usr/bin/perl
use warnings;
...
$text->bind('<FocusOut>', sub { $mw->bind('<s>', \&stop) });

MainLoop();