use Win32::File;
my $test = Win32::File -> GetAttributes ("ftp.pl",ARCHIVE);
print "test: >$test<\n";
exit();