"\\TEST\Memory\Pages/sec"	"\\TEST\PhysicalDisk"
"06/20/2002 08:27:19.087"	"0.87367121907974665"	
"06/20/2002 08:27:34.088"	"3.3339663084377777"
"06/20/2002 08:27:49.090"	"3.9996207699833071"
"06/20/2002 08:28:04.091"	"3.198195381472539"


##</code><code>##

#!C:\Perl\bin\perl

use Getopt::Std;

$USAGE = <<USAGE;
 Usage: Absolute_Path\\Logfile

    A script to retrieve perf numbers and calculate averages
    
USAGE
;
 
# process command line
getopts('x') || die $USAGE;
 
# get parameters
$Perf    = shift || die $USAGE;

chomp ($Perf);

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

@read = <LOG>;

print "Contents of read are: @read\n";