pmirror: fix shebang

pmirror/pmirror

@@ -1,4 +1,4 @@
-#! /usr/local/bin/perl -w
+#! /usr/bin/perl
 
 # https://github.molgen.mpg.de/mariux64/mxtools
 
@@ -8,6 +8,7 @@
 
 package My::Escaper;
 use strict;
+use warnings;
 
 our @ISA=qw(Exporter);
 our @EXPORT=qw(fn_escape fn_unescape);
@@ -32,6 +33,7 @@ sub fn_unescape
 #--------------------------------------------------------------
 package My::FileInfo;
 use strict;
+use warnings;
 import My::Escaper;
 
 use Class::Struct (map {$_=>'$'} qw(name dev ino type perm nlink uid gid rdev size mtime target)) ;
@@ -151,6 +153,7 @@ sub lstat
 #--------------------------------------------------------------
 package main;
 use strict;
+use warnings;
 
 use File::FnMatch ':fnmatch';
 use File::Find;