perl-ed the dimensions