# The $attr for this file is 8224 something should never happen
# as the maximum returned value (from the documentation)
# is 4096 ! Any help is wellcome.

use Win32::File;
my $file = "$ENV{systemroot}\\notepad.exe";
Win32::File::GetAttributes($file,my $attr);
print $attr;

"George Bouras" <bourasg.nospam [at] unisystems.gr> wrote in message
news:dlvau8$mm8$1 [at] ulysses.noc.ntua.gr...
># The $attr for this file is 8224 something should never happen
> # as the maximum returned value (from the documentation)
> # is 4096 ! Any help is wellcome.
>
> use Win32::File;
> my $file = "$ENV{systemroot}\\notepad.exe";
> Win32::File::GetAttributes($file,my $attr);
> print $attr;
>

It might be more useful if you gave your platform, version(/build if
ActivePerl) of perl and the version number of the Win32::File module you're
using. I get the output 32 from your script above on WinXP with 5.8.7 Build
813 using Win32::File version 0.05.