#!/usr/bin/perl

use strict;
use warnings;
my $dcr = "na";
my $dev= "/dev/sdc" ;
	my $brand = qx(/usr/bin/lsscsi | grep $dev  |awk '{print \$4}' ) ;
	my $model = qx(/usr/bin/lsscsi | grep $dev  |awk '{print \$5}' ) ;
	my $disk_size = `/sbin/parted $dev -s print | grep Disk | awk '{print \$3}' `;
	$dcr = "$brand $model $disk_size";
	print "$dcr";