my @myfile = <File>;
my $lines = @myfile;