die "no dir named $element\n" unless ( -d $element);