つーか、perlでOOPって無理があるよね