use Storable;

# Load persistent stuff
my $persistRef = retrieve ('config') if -e 'config';

# Use stuff
my $text = $persistRef->{text} || '';

# ...
$persistRef->{text} = $text;

# Save stuff
store $persistRef, 'config';