Select Code to Download

my $display=$vbox->get_display;
my @list=($display->list_devices());
for(my $i=0;$i<$#list;$i++){
...
    print "activating device \# $i, name=$name result=$result\n";
}
$drawing_area->set_extension_events("cursor");

#!/usr/bin/perl -w
#
...
$window->show;
Gtk2->main;
}