#!/usr/bin/perl

my $query = qx{hdparm -i /dev/hda} or die $!;

print "HDD serial number is: $1\n"
  if $query =~ m/SerialNo=([^,\s]+)/s;