my $pt = Win32::API::Struct->new('FILE_INFO')or die "ERROR: $^E";
new Win32::API('dll',"GetInfo", ['P','P','N'], 'N' ) or die "ERROR: $^E";
#or
new Win32::API('dll',"GetInfo", ['P','S','N'], 'N' ) or die "ERROR: $^E";

my $test = $APIHandle->Call($FileHandle,$pt,1024)or die "ERROR: $!";