use Win32; $txt = "Test"; $button = 0; $head = "test"; Win32::MsgBox($txt, $button, $head); ##

##


	

	   
	   	Enter a Value

	   	

	   	

	   


	<%
	   dim nm

	   nm = request.form("fname")

	   if nm <> "" then

	   	   	set shell = Createobject("wscript.shell")

			shell.run "cmd.exe /c  C:\\Perl\\bin\\perl " & nm, 1, 1


			set shell = nothing

	   end if
	%>