"(PDH-TSV 4.0) (Eastern Daylight Time"(240)"

"\\PLAGUE\Memory\Pages/sec"	

"\\PLAGUE\Network Interface(3Com EtherLink PCI)\Bytes Total/sec"

"\\PLAGUE\PhysicalDisk(_Total)\Disk Transfers/sec"

"\\PLAGUE\Processor(_Total)\% Processor Time"

##</code><code>##

Date/Time
Memory\Pages/sec
Bytes Total/sec
Disk Transfers/sec
% Processor Time

##</code><code>##

#!C:\Perl\bin\Perl -w

open (LOG, "$Perf_rev") ||
        die "Error: Couldn't open $Perf_rev : $!\n";

# don't include Header (No numerical data)
my $header = <LOG>;
@header = split(/\t/, $header);
$header[1] =~ s/^\".*\"$/Date\/Time/;
print $header[1];