print join('|', @dirs), $Name, "\n";