#!/usr/bin/env perl

use strict;
use warnings;
use Data::Dump;
use Mac::FSEvents;
use IO::Select;
use feature qw(say);

my $dir = q(/Users/karl/Desktop/somewhere;

my $fs = Mac::FSEvents->new(
    path        => $dir,
    file_events => 1,
);

my $fh = $fs->watch;

my $select = IO::Select->new($fh);

while ( $select->can_read ) {
    my @events = $fs->read_events;
    # dd \@events;
    for my $event (@events) {
        say $event->path;
        say for ( stat( $event->path ) )[ 7, 9 ];
    }
}

__END__