open(X,filename);
while(<X>;){}
$lines = $.;