# c:\perl\lib\MyService.pl

use strict;
use warnings;

    use File::Copy;
    my $dir = "C:\\Program Files\\Kazaa Lite\\My Shared Folder";
    my $dest = "C:\\incoming";
    
    while (1) {
        opendir(DIR,$dir) || die "can't opendir $dir: $!";
        while(my $file = readdir(DIR)) {
 		if ($file=~/\.dat$/i) {
                        my $i = '1';
        	}
        	else {
                        move ("$dir\\$file", "$dest\\$file");
        	}                    
        }
        sleep(3);
        closedir DIR;
    }