$chdev = Starla::dx::dx_open("dxxxB1C1",0)  or die "Cannot open dxxxB1C1 ($!)\n";
print "Device is $chdev ($!), state is ";
$tmp = Starla::dx::ATDX_STATE($chdev);
print "$tmp ($!)\n";