Select Code to Download

use Win32::File qw(:DEFAULT SetAttributes GetAttributes);

#!perl
...
if ( $attr & HIDDEN ) {
    print "$name is hidden.\n";
}