$file="filename.ext";

open(COUNT,"$file") || err("Oops.. $!");
@lines = <COUNT>;
close(COUNT);

$count="0";

foreach $line (@lines) {
$count++;
}

print "Content-type: text/html\n\n";
print "$file's length is $count";