#!/usr/bin/perl -w
use strict;

#my $logFile = $ARGV[0]; 
#die "usage: $0 <logFile>" unless $logFile; 
#die "Logfile $logFile doesn't exist" unless -f "$logFile"; 
#open(my $log, "<", $logFile) or die "Can't open $logFile for reading."

die "Wrong number of args\nUsage: $0 Logfile" if (@ARGV != 1);
my ($logFile) = @ARGV;
open(my $log, "<", $logFile) || die "Can't open $logFile for reading";