sub new {
  my ($account) = @_;