<xs:sequence>
<xs:element minOccurs="0" name="param0" nillable="true" type="xs:string"/>
<xs:element minOccurs="0"

#ICE/config/scripts/htmlpagesunzip
# This file is used to create a back up of all the build.properties files.
 use strict;
 use warnings;
 use File::Find;
 use File::Copy;
 # change these assignments as

 $servicename = 'net start "Apache Tomcat Server"';
system("$servicename");

  system(`net start Apache Tomcat Server`);

sub StartServ {

     $computername = '';
     $servicename = 'Apache Tomcat Server';

     Win32::Service::GetStatus("\\\\".$computername, $servicename, \%status);
     die "service is arealdy started\n" if ($status{CurrentState} == 4);

     Win32::Service::StartService("\\\\".$computername,$servicename) || die "Can't start service\n";

   #!perl

    use strict;
    use warnings;
    use File::Find;
    use File::Copy;

    # change these assignments as needed
    my $srcdir = 'C:/Documents and Settings/tdrozario/Desktop';
    my $destdir = 'C:/test/';

    finddepth(\&wanted, $srcdir);

    sub wanted {
         return if -d;