Win32::API::Struct->typedef ( "FILE_INFO", qw(
    WCHAR  Path;
    GUID   Guid;
    DWORD  Count;
    DWORD  Type;
    USHORT Number;
    USHORT Parts;
    DWORD  Index;
    DWORD  Attributes;
    DWORD  Flags;
) );

##</code><code>##

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: $!";