Select Code to Download

package User;

...
  # now you have $self->{user} for the user object
  # and $self->{account_id}
}