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

use Data::Dumper;
use Inline::Files -backup;

my $Config;

if(defined($ARGV[0]) and $ARGV[0] eq 'NoRead')
   {
   $Config->{'Foo'} = 1;
   }
else
   {
   $Config = eval join "", <CONFIG>;
   }

local $Data::Dumper::Useqq  = 1;
local $Data::Dumper::Indent = 1;

$Config->{'Foo'}++;
print Data::Dumper->Dump([$Config],['Config']);

seek CONFIG, 0, 0;
print CONFIG Data::Dumper->Dump([$Config],['Config']);

__CONFIG__
$Config = {
  "Foo" => 2
};