Cursor change using Mdk 10.1 error

["Dirk van der Walt" <vrygesel highveldmail co za>]

Hi,

I've tried this sample from the mailing list, but it gives
me the following error:

Can't locate object method "set_cursor" via package
"Gtk2::Window" at ./cursor.pl line 17.

Here's the script:
------------------------
#! /usr/bin/perl -w

use Gtk2;
Gtk2->init;

 $w = Gtk2::Window->new;
 $w->set_border_width (16);
 $w->signal_connect (delete_event => sub {exit});

 $l = Gtk2::Label->new ('hi there');
 $e = Gtk2::EventBox->new;

 $e->add ($l);
 $w->add ($e);

 $e->realize;
 $e->set_cursor (Gtk2::Gdk::Cursor->new ('hand2'));

 $w->show_all;
 Gtk2->main; 
----------------

Is there a known problem on mdk or am I doing something
wrong?