use SGI::FAM;
         my $fam=new SGI::FAM;
         $fam->monitor('foo');
         while (1) {
           my $event=$fam->next_event; # Blocks
           print "Pathname: ", $event->filename,
             " Event: ", $event->type, "\n";
         }