package KLARF;
use strict;
use warnings; 
use base qw(Class::Accessor);

my $s = 'foo';

my $x = bless {};

$x->{$s} = 'bar';
KLARF->mk_accessors($s);

print $x->foo(), "\n";