Select Code to Download

 
#!/usr/bin/perl -w
use strict;
...

[SECTION]
key              =value

Bareword "DATA" not allowed while "strict subs" in use at script.pl li
+ne 31.