Shell Programming and Scripting

for filename in *;
do
count=`wc -l $filename |awk '{ print $1 }'`

echo "$count in $filename"
# Here add comand to add the count of each line of file in head of  file
done

use strict;
use warnings;

open FH,"<file" or die "Can't Open $!";
my @array;
while(<FH>)
{
    push(@array,$_);
}
my $var=$#array+1;
close FH;
open FH,">file" or die "Can't Open $!";
print FH "$var\n";
print FH "@array";

for file in `ls .`
do
if [ -f $file ]
then
var=`wc -l $file | cut -d ' ' -f 1`
`sed -i "1i \$var" $file`
fi
done