#!/usr/bin/perl
use strict;
use warnings;

while (opendir my $dirh, "/somewhere/else")
{
    while (my $file = readdir $dirh)
    {
        print "$file\n";
    }
    sleep 1;
}