my $total = @{[<FILE>]};
print $total,"\n";