Use /usr/bin/env perl to avoid hardcoded paths to perl

Author: yggdr

Makefile

@@ -24,8 +24,8 @@ clean:
 	rm ipaddr *.bak *~ || true
 
 critic:
-	perlcritic $$(grep -l '^#!/usr/bin/perl' *)
+	perlcritic $$(grep -l '^#!/usr/bin/env perl' *)
 
 tidy:
-	perltidy $$(grep -l '^#!/usr/bin/perl' *)
+	perltidy $$(grep -l '^#!/usr/bin/env perl' *)
 

ago

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl
 
 =head1 NAME
 

chronic

@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 
 =head1 NAME
 

cidr2ip

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl
 
 =head1 NAME
 

dupes

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl
 
 =head1 NAME
 

graphite_send

@@ -352,4 +352,4 @@ for i in /etc/graphite_send.d/* ; do
         done
 
     fi
-done
+done

maybe

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl
 #
 # maybe - companion to /usr/bin/true and /usr/bin/false.
 #

multi-ping

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl
 
 =head1 NAME
 

mysql-slave-check

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl
 
 =head1 NAME
 

pyhttpd

@@ -58,4 +58,4 @@ def test(HandlerClass=SimpleHTTPRequestHandler,
 
 
 if __name__ == "__main__":
-    test()
+    test()

since

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl
 
 =head1 NAME
 

splay

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl
 
 =head1 NAME
 

ssh-auth-types

@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 
 =head1 NAME
 

timeout

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl
 
 =head1 NAME
 

when-down

@@ -29,4 +29,4 @@ while [ $? -ne 1 ]; do
 done
 
 shift
-$*
+$*

with-lock

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl
 
 =head1 NAME