Select Code to Download

sub new {
    my ($class) = @_;
...
    @obj[ACCOUNT, NAME, BALANCE] = (undef, undef, 0);
    return bless( \@obj, $class);
}