my $tmp = qx( /usr/bin/lsscsi | grep $dev );
my (undef, undef, undef, $brand, $model, undef) = split /\s+/,$tmp;