Write perl code to find the number of lines in a file