sub winUse
{
        my $wavF =shift;
        my $adpC =shift; # Channel info
        my $adpT =shift; # Title info

        my $adpF = "channel$adpC-title$adpT.adp";
        my $batF = "adp2.bat"; #bat file
        my $ordF = "cmdWin"; #windows command to exec
        my $wavD = "wavSound"; #wav dir
        my $adpD = "adpSound"; #adp dir

        my $winS = "10.10.110.222"; #win server
        my $winU = "adp"; #win user

        my $fh; # FileHandle

        my @cnvrtArray =
        (
                "ac"," ",    #adpcm_converter.exe
                $wavD,"\\",  #wav directory on windows
                $wavF," ",   #wav source file
                $adpD,"\\",  #adp directory on windows
                $adpF," ",   #adp goal file
                "-norm"      #parameters
        );

        open($fh,'>',$batF) or die "Can't write file '$batF' [$!]\n";
        print $fh @cnvrtArray;
        close($fh);

        open($fh,'>',$ordF) or die "Can't write file '$ordF' [$!]\n";
        #print $fh $batF; # First post
        print $fh 'start "" "'.$batF.'"'."\n"; # Update #2
        close($fh);

        my $sftpString1 = "sftp $winU\@$winS<<EOF\nput $batF\ncd $wavD\nput $wavF\nEOF";
        my $sshString   = "ssh $winU\@$winS cmd.exe < $ordF\n";
        my $sftpString2 = "sftp $winU\@$winS<<EOF\ncd $wavD\nrm $wavF\ncd ..\/$adpD\nget $adpF\nEOF";

        system($sftpString1);
        sleep 5;
        system($sshString);
        sleep 10;
        system($sftpString2);
        sleep 5;

}


winUse("test.wav",52,24);
winUse("test.wav",52,25);
winUse("test.wav",52,26);