Add files via upload

Testing superlinter. Perlcritic level 5 problems solved.

src/imagery/i.pr/PRLIB/extract_ps.pl

@@ -1,4 +1,5 @@
 #!/usr/local/bin/perl
+use strict;
 
 opendir DIR, "./";
 @files=readdir DIR;