$count=0;
$file = "bas.txt";
open(FILE, "<$file");
$count++ while <FILE>;
print "$count\n";