my $device = SDR::RTLSDR->new();
my $status = rtlsdr_open( \$device , $index);
print "status $status for index $index\n";