package SuperClass;
sub foo :lvalue { my $self = shift; $self->{foo} }

package SubClass;
@ISA=qw(SuperClass);

sub foo :lvalue {
	# Now I want to store value of foo attribute in RDBMS,
	# how can I do that?
}