Select Code to Download

#!/usr/bin/perl
use 5.012; # strict, //
use warnings;
print "Content-Type: text/plain;\n";    # the missing \n will cause a 
+500 return code, even though your script has no fatal error, and no d
+ie
print "Hello World\n";

#!/usr/bin/perl
use 5.014; # strict, //, s//r non-destructive
...
print "Hello World\n";

__END__

DEBUG 329772 Fri Oct 15 14:06:30 2021: Content-Type: text/plain;
DEBUG 329772 Fri Oct 15 14:06:30 2021: Hello World
DEBUG 330420 Fri Oct 15 14:06:42 2021: Content-Type: text/plain;
DEBUG 330420 Fri Oct 15 14:06:42 2021:
DEBUG 330420 Fri Oct 15 14:06:42 2021: Hello World