Select Code to Download

sub accountnumber {
   my ($self, $num) = @_;
...
      return $self->{account_num};
   }
}

use base qw(Class::Accessor);

__PACKAGE__->mk_accessors(qw(accountnumber));