sub accountnumber {
   my ($self, $num) = @_;

   if (defined($num)) {
      $self->{account_num} = $num;
      return $self;
   } else {
      return $self->{account_num};
   }
}

##</code><code>##

use base qw(Class::Accessor);

__PACKAGE__->mk_accessors(qw(accountnumber));