sub new { my ($class, $account) = @_; return bless $accounts{$account}, $class; }