Select Code to Download

sub new {
    my ($class, $datafile, $accounts) = @_;
...
        accounts => $accounts,
    }, $class;
}

sub acct_data {
    my ($self, $type) = @_;
...
        )
    }
}