Advertisement
Guest User

Untitled

a guest
Oct 31st, 2013
28
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.51 KB | None | 0 0
  1. xmlhttp=new XMLHttpRequest();
  2. var url = "get_data.pl";
  3. xmlhttp.open("POST", url, true);
  4. xmlhttp.setRequestHeader("Content-type", "application/x-www-form-urlencoded");
  5. xmlhttp.onreadystatechange = function() {
  6. if(xmlhttp.readyState == 4 && xmlhttp.status == 200) {
  7. alert(xmlhttp.responseText);
  8. }
  9. }
  10. xmlhttp.send(null);
  11.  
  12. #!C:/Perl/bin/perl.exe
  13. use strict;
  14. use warnings;
  15.  
  16. &main;
  17.  
  18. sub main()
  19. {
  20. print "test";// I'd like the script being executed by Perl interpreter and return the string "test" .
  21. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement