Sorry about not reading into you question...
here you go...
<body id="Bel">
<div id="Response"></div>
<h2>Test of a PerlScript function being called from VBScript</h2>
<p>
<input type="text" id="PipeCreate" value="">
<input type="button" onclick="namePipe, PipeCreate" value="Create Pipe"><br>
<input id="WriteThis" type="text" size="15" value="">
<input type="button" onclick="WriteToPipe" value="Write To Created Pipe">
<input type="button" onclick="ReadFromPipe" value="Read Pipe">
</p>
<input type="button" onclick="Discon" value="Disconnect Pipe!!">
<form method="POST" action="" onsubmit="javascript:return false">
<p><input type="button" value="Close" onclick="javascript:self.close();"></p>
</form>
<p>
</p>
<script language="PerlScript">
use Win32:
ipe;
sub namePipe {
$pipe = $window->document->getElementByID(PipeCreate)->value;
}
sub WriteToPipe {
$WhatToWrite= $window->document->getElementByID(WriteThis)->value;
$OurPipe = new Win32:
ipe("\\\\.\\Pipe\\$pipe"
|| die $window->alert("Can't Create Named $pipe\n"
;
my $Writer = $OurPipe->Write("$WhatToWrite"
;
}
sub ReadFromPipe {
$OurPipe = new Win32:
ipe("\\\\.\\Pipe\\$pipe"
|| die $window->alert("Can't Create Named $pipe\n"
;
$Data = $OurPipe->Read();
$DatRetVal ="This Is The Data $Data";
$window->alert($DatRetVal);
}
sub PipeCreate {
$OurPipe = new Win32:
ipe("$pipe"
|| die $window->alert("Can't Create Named $OurPipe\n"
;
}
sub Discon {
$OurPipe = new Win32:
ipe("\\\\.\\Pipe\\$pipe"
|| die $window->alert("Can't Create Named $OurPipe err1 \n"
;
$OurPipe->Close()|| die $window->alert("Can't Create Named $pipe err2\n"
;
$OurPipe->Disconnect()|| die $window->alert("Can't Create Named $pipe err3 \n"
;
}
sub sayHello {
# This function takes two parameters, creates a string
# from the parameters, and returns the string.
# get the two parameters into local variables
my ($strName, $strTime) = @_;
#now, create the return string.
$strRetVal="Hello $strName. The time is $strTime.";
# Return the string
$strRetVal;
}
</script>
<Script language="vbscript">
strOutput=sayHello("Visitor",Now & ""
Response.innerText= strOutput & " "
</script>
<!-- Insert HTML here -->
</body>
