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


open NUMBER, '+<';
my $number = <NUMBER>;
seek NUMBER, 0, 0;
print NUMBER ++$number;

my @args = ("vim $number && rm current_test && ln -s $number current_test");

system @args and exit;

__NUMBER__
0