my $count = 0;
open(FILE, "image.gif") or die "we had a problem $!";
while(<FILE>)
{
  $count++;
}