#! /usr/bin/perl
use strict;
open(IN, "test.txt");
my @str = <IN>;
close(IN);
print scalar(@str);