SHARE
TWEET

Untitled

a guest Aug 12th, 2017 50 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #!C:/perl/bin/perl.exe
  2. use CGI;
  3.  
  4. my $q = CGI->new;
  5. print $q->header('text/plain'),
  6.     "Hello ", $q->param('name');
  7.  
  8. #CONVERTED PSGI PAGE
  9.  
  10. #!C:/perl/bin/perl.exe
  11. use CGI::PSGI;
  12.  
  13. my $app = sub {
  14.     my $env = shift;
  15.     my $q = CGI::PSGI->new($env);
  16.  
  17.  
  18.     return [
  19.         $q->psgi_header('text/plain'),
  20.         [ "Hello ", $q->param('name') ],
  21.     ];
  22. };
RAW Paste Data
Top