get-header.pl

来自「带mod_cache的lighttpd服务器,性能有很大提高,可以让一个1G带宽」· PL 代码 · 共 9 行

#!/usr/bin/perl

my $s = $ENV{$ENV{"QUERY_STRING"}};

printf("Content-Length: %d\r\n", length($s));
print "Content-Type: text/plain\r\n\r\n";

print $s;