open(FILE, <>);
my $lines_counter = 0;
while(<>)
{
    $lines_counter += 1;
}
print "lines: $lines_counter\n";