$FTDIdev->OpenDevByIndex(1);

my $x = $FTDIdev->SetBitMode(0xFF, 0x01);

print "$x"; #$x prints 1

my $mode = $FTDIdev->GetBitMode()
|| die "unable to get mode"; #fails here

#GetBitMode(0x01) also fails