#!/usr/bin/perl
use Inline::Files;
use warnings;
use strict;

#open NUMBER, '+<'; #InlineFiles auto opens 

my $number = <NUMBER>;
seek NUMBER, 0, 0;

print "I am number $number\n";

print NUMBER ++$number;

__NUMBER__
0