#!/usr/bin/perl
use warnings;
use strict;
use Carp;

open(my $count_file,"+<","count.txt") or croak "cant open";
my $count=<$count_file>;
$count++;
print $count_file $count;
print $count;

__END__

##</code><code>##

#!/usr/bin/perl
use warnings;
use strict;
use Carp;

open(my $count_file,"<","count.txt") or croak "cant open";
my $count=<$count_file>;
$count++;
open($count_file,">","count.txt") or croak "cant open";
print $count_file $count;
print $count;

__END__