my $style_file = sprintf "%s/main/%s.xsl", $$config{dir}, $$config{style}; #### my $style_file = join "/", $$config{dir}, 'main', "$$config{style}.xsl";