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

my $file = './flashcount.txt';
open my $fh, '<', $file or die "Can not open file $file: !$\n";
my $count = <$fh>;
close $fh or die "Can not close file $file: !$\n";

chomp $count;
my $outcome = $count + 1;
print "outcome = $outcome\n";

##</code><code>##

outcome = 6