Immediate help required (Perl and xsl)

Hallo Everyone,
I required some help for programming in Perl and xsl. 
First in Perl:
I have a directory structure like this
c:\project\work_folder\current\xml\Reference.xml
I use File::Basename for getting the path and the file
name. I need to get only the name of the directory
"xml" that has Reference.xml (this is just an example,
I need to alway get the name of the directory that has
xml files, in this case its "xml" directory), so how
to do this.

Second in Perl and xsl:
1. I need to send a parameter from Perl script to xsl.
This parameter is directory structure. How to do this?

2. How do I access this parameter in my xsl file?
Can someone give an example for this.

Third in xsl:
I'm generating a XML document from a xsl stylesheet. I
have a variable like this:
<xsl:variable name="doctype_string"
select="concat('//DTDs V',$version,' //EN//')"/>
So I concatinate this. Now I need to print this in the
header of xml document using doctype-public attribute,
thats like this:
<xt:document href="{file}" type="xml"
doctype-public="$doctype_string">
When I do this, I have $doctype_string printed in the
header. So what is a method to print the concatinated
string "doctype_string" in the doctype header.
I have tried out doctype-public="{$doctype_string}"
too but this is printed in the header
{$doctype_string}

Thanks in advance
Regards,
Sri...

__________________________________________________
Do You Yahoo!?
HotJobs - Search Thousands of New Jobs
http://www.hotjobs.com

 XSL-List info and archive:  http://www.mulberrytech.com/xsl/xsl-list