my $root = rel2abs (shift || '.');