#!/usr/bin/perl

use strict;
use warnings;

use Win32::File;

my $dir = 'some.dir';
opendir(my $dh, $dir);
my @files = readdir $dh;

for my $file (@files){

  my $attr;
  
  Win32::File::GetAttributes($file, $attr);
  
  if ($attr & (Win32::File::HIDDEN)){
    print "$file is hidden\n";
  }
  else{
    print "$file not hidden\n";
  }
}