my $wPath= pack "S*",
    unpack( "C*", "C:/server/htdocs/DEVELOPMENT/testing/" ),
    19968, 26869, 39640, 26641,
    unpack( "C*", "/test/test.ssi" ),
    0;
my $hFile= CreateFileW(
    $wPath,
    GENERIC_READ()|GENERIC_WRITE(),
    FILE_SHARE_READ()|FILE_SHARE_WRITE(), [],
    OPEN_EXISTING(), 0, [] )
    or  die "Can't open: $^E\n";
OsFHandleOpen( *DATFILE, $hFile, "rw" )
    or  die "Can't create Perl handle: $!\n";
my $strHeaderLine = <DATFILE>;
print $strHeaderLine;
close DATFILE;