Файловый монитор

[wells]

Привет всем! Не являясь большим спецециалистом по PERL'у, иногда предпочитаю писать на нём. Особенно учитывая все его прелести. Поэтому, если вопросы будут дурацкие - уж извиняйте.
Есть проблема: на Win серваке нужно мониторить каталог на предмет изменения и добавления файлов. Файлы в формате CSV. Каждый день добавляется новый файл и в него весь день пишется инфа. Все изменения нужно сбрасывать в SQL. Сейчас работает следующий вариант: на SQL серваке крутиться DTS пакет который раз в день забирает с расшаренной директории новый файл(за прошедший день) и закачивает его в базу. Нужно, что бы изменения отражались в базе не раз в день, а сразу, после записи в файл. Ну и как-то покрасивее хочется сделать.
Решил написать скрипт, который на серваке с файлами крутился бы в фоне и мониторил каталог.
Всё что нарыл - Win32::ChangeNotify

Код: Выделить всё

use strict;
require Win32::ChangeNotify;
my $Path='D:\DATA';
my $WatchSubTree=1;
my $Events='LAST_WRITE';
my $objNotify=Win32::ChangeNotify->new($Path,$WatchSubTree,$Events);
while (1) {
    $objNotify->wait();
    print "Something changed\n";
    $objNotify->reset();
}
$objNotify->close();

А как узанть, что конкретно изменилось в каталоге? Какой файл и что в него дописалось?
print $objNotify выдаёт Win32::ChangeNotify=SCALAR(0xbe7c94)
И что с этим делать??????