Select Code to Download

#!/usr/bin/perl
use Time::HiRes qw( usleep );
use DBI;
...
    print "Device Type = $devtype\n";

}

./hbat-test
"my" variable $data masks earlier declaration in same scope at ./hbat-
+test line 41.
...
Use of uninitialized value in concatenation (.) or string at ./hbat-te
+st line 105.
Use of uninitialized value in concatenation (.) or string at ./hbat-te
+st line 105.
Device Type = ..