my $test = Win32::File -> GetAttributes ('ftp.pl', 'A');