my $count = 0;
open my $IN, "<", $mcpFile or die "unable to open $mcpFile $!";
$count++ while <$IN>;
close $IN;