Return to get-header.pl CVS log | Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / lighttpd / tests / docroot / www |
1.1 misho 1: #!/usr/bin/perl 2: 3: my $s = $ENV{$ENV{"QUERY_STRING"}}; 4: 5: printf("Content-Length: %d\r\n", length($s)); 6: print "Content-Type: text/plain\r\n\r\n"; 7: 8: print $s;