$dir = $templ;
$dir =~ s%/[^/]+$%/%;