Select Code to Download

#!/usr/bin/perl
use warnings;
...
}
sub mobileStop{&mobileMove;}
__END__

#!/usr/bin/perl
use warnings;
...
  $mw->bind('<B1-Motion>' => sub{ });
}
######################################