#!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";