use strict;

use vars qw($DATA);
use Inline::Files;

open DATA or die $!;
chomp ($_ = <DATA>);
close DATA or die $!;

print "you have run this script @{[++$_]} times\n";

open DATA, ">$DATA" or die $!;
print DATA $_;
close DATA or die $!;

__DATA__
0