<pre class="prettyprint lang-perl">
#!/usr/bin/perl
-print "Content-type: text/html\r\n\r\n";
+print "Content-type: text/html\n\n";
print "Hello, World.";
</pre>
use strict;
use warnings;
-print "Content-type: text/html\r\n\r\n";
+print "Content-type: text/html\n\n";
foreach my $key (keys %ENV) {
print "$key --> $ENV{$key}<br>";
}
<highlight language="perl">
#!/usr/bin/perl
-print "Content-type: text/html\r\n\r\n";
+print "Content-type: text/html\n\n";
print "Hello, World.";
</highlight>
use strict;
use warnings;
-print "Content-type: text/html\r\n\r\n";
+print "Content-type: text/html\n\n";
foreach my $key (keys %ENV) {
print "$key --> $ENV{$key}<br>";
}