Select Code to Download

#!/usr/bin/perl
use warnings;
...
$mw->bind('<Control-c>', sub { $mw->afterCancel($repeat) });

MainLoop();