use strict; use warnings; use base "Factory"; print main->dir(); # current