#!/usr/bin/perl -w
#
#
use strict;

my $partitions = `hdparm -i /dev/hda|grep Model`;
my ($model,$firmware,$serial_no)=split /,/,$partitions;
my @model = split /=/,$model;
my @serial_no=split /=/,$serial_no;
my @firmware=split /=/,$firmware;

print "Model = $model[1]\tFirmware=$firmware[1]\tSerial No=$serial_no[1]\n";