how to get user name from windows using perl

Hi everyone,
I am generating pdf file by using perl template-toolkit, I am reading xml
file and processing through template toolkit and compiling using pdf
latex.I written script like this
  #!/usr/bin/perl
use warnings;
use strict;
use Data::Dumper;
use XML::Simple;
use Template;
my $xml = new XML::Simple;
my $data = $xml->XMLin("data.xml",
ForceArray=>['dat','employee','experience']);

#print Dumper($data);
my $template = Template->new();
my $filename = 'output1.tex';
$template->process(\*DATA, $data, $filename)
    || die "Template process failed: ", $template->error(), "\n";

    system( "pdflatex $filename" );
__DATA__
\documentclass[a4paper,leqno,twoside]{article}
\usepackage[latin1]{inputenc}
\usepackage[english]{babel}
\begin{document}

Issued by {Name, acronym, department, phone}
\issuedby{veerubiji,vebi,ece,123456}

% Document title. Use \doctitleShort{} to insert a shorter title in the
header.
\doctitle{employee information of thie"scr"company}
\doctitleShort{\@doctitle}

    [% FOREACH comp IN company %]
    [% comp.name %]
    [% comp.location%]
    employeedata:
    [% FOREACH employee IN comp.domain.java.employee %]

    [% employee.name %][% employee.number %]

    [% FOREACH obj IN data%]

    [% FOREACH beha IN obj.employee %]

    [% IF beha.number == employee.number && beha.name == employee.name  %]

     [% beha.address %],

      [% LAST %]
     [% END %]
       [% END %]
     [% END %]
     [% END %]
    [% END %]
      [% END %]
\end{document}
</code>
<p>the above script is working good but my problem is in the above
script</p>
<code>
\issuedby{veerubiji,vebi,ece,123456}

1)I written manually my name and acronym and department e.t.c. how can I
get that name directly from windows system. If suppose somebody using the
same script in other system it has to display his user name. how can I get
that user name from windows using perl script or template module.

my second problem is

\doctitle{employee information of thie"scr"company}

in the above line document title is written in template process, I need to
access title from perl code how to do this.can any one help me because this
my first time using template process.

_______________________________________________
templates mailing list
[email protected]
http://mail.template-toolkit.org/mailman/listinfo/templates