#
# handwaving enabled 
opendir(MYDIR,"/path/to/where/I/want/to/monitor")
     or die $!;
while(my $fname=readdir(DIR)){
    next unless $fname =~ m@.*\~$/
    | react here...
|