Select Code to Download

sub AUTOLOAD {
  my $self=shift;
...
  unless (exists $self->{$attr}) do_get_the_value_from_db(); # do_... 
+would get the value and store it in $self->{$attr};
  return $self->{$attr};
}