#!/usr/bin/perl

use strict;
use warnings;
use Win32::File;

my $file = 'some.file';
my $attr;

Win32::File::GetAttributes($file, $attr);

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