frequences

  GNU nano 2.5.3                                          File: frequences.pl

#!usr/local/bin/perl
use 5.010;
use strict;
use warnings;

open my $file, '<', "garri.txt" or die 'Невозможно открыть файл$!\n';
my $count=0;
my $buffer;
while(read $file, $buffer, 16){
if ($buffer=="a"){
++$count;
}
}
close $file;
print $count;