#!/usr/bin/perl -w

use strict;

my $Processor_Id=`dmidecode -t processor | grep ID | sed -e 's/ID:/ /g'`;

print "\n Processor_ID:$Processor_Id";