#!/usr/bin/perl -l

use strict;
use warnings;
use Win32::File qw(GetAttributes HIDDEN);

my $hidden = 'hidden.txt';

for my $file( $0, $hidden, 'C:\Dokumente und Einstellungen' ){
    my $attribs;
    GetAttributes( $file, $attribs );
    print $file, " -> ", $attribs & HIDDEN;
}