how to use Inotify2.pm with perl

HI,
I am noob in perl.

I am reading this : http://www.ibm.com/developerworks/linux/library/l-ubuntu-inotify/index.html
and its saying, perl coder can use Inotify2.pm , with perl code

question is, how will i use thie inotify2.pm with perl code ?? [ http://search.cpan.org/~twerner/Linux-Inotify-0.05/lib/Linux/Inotify.pm]

when i run its ,its say

Can't locate Linux/Inotify2.pm in @INC (@INC contains: /usr/lib/perl5/site_perl/5.8.8/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.8 /usr/lib/perl5/site_perl /usr/lib/perl5/vendor_perl/5.8.8/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.8 /usr/lib/perl5/vendor_perl /usr/lib/perl5/5.8.8/i386-linux-thread-multi /usr/lib/perl5/5.8.8 .) at iwatch.pl line 3.
BEGIN failed--compilation aborted at iwatch.pl line 3.


that mean i dont have Inotify2.pm,

from where will i get Inotify2.pm and how will i run this code ??
thanks

#!/usr/bin/perl

use Linux::Inotify2;

my $inotify = new Linux::Inotify2
        or die "Unable to create new inotify object: $!";

 # for Event:
 Event->io (fd =>$inotify->fileno, poll => 'r', cb => sub { $inotify->poll });

 # for Glib:
 add_watch Glib::IO $inotify->fileno, in => sub { $inotify->poll };

 # manually:
 1 while $inotify->poll;

 # add watchers
 $inotify->watch ("/tmp/ifile.txt", IN_ACCESS, sub {
    my $e = shift;
    my $name = $e->fullname;
    print "$name was accessed\n" if $e->IN_ACCESS;
    print "$name is no longer mounted\n" if $e->IN_UNMOUNT;
    print "$name is gone\n" if $e->IN_IGNORED;
    print "events for $name have been lost\n" if $e->IN_Q_OVERFLOW;

    # cancel this watcher: remove no further events
    $e->w->cancel;
 });

Select allOpen in new window