#! perl -sw
use strict;
use Inline::Files -backup;
BEGIN{
	$::name1 = <MY_VARS>; chomp($::name1);
	$::name2 = <MY_VARS>; chomp($::name2);
}

print "This time I have $::name1, and $::name2\n";

$::name1 = 'frederica';
$::name2 = 'willamina';

END{
	open MY_VARS, '>' or die $!;
	print MY_VARS "$::name1\n$::name2\n";
	close MY_VARS;
}
__MY_VARS__
fred
bill
__DATA__

C:\test>202246
This time I have fred, and bill

C:\test>202246
This time I have frederica, and willamina

C:\test>