Select Code to Download

my $cursor = [qw/@mouse.xbm mouse.mask brown white/];

#!/usr/bin/perl -w
use Tk;
...

MainLoop;