Normalize #! lines on all plugins

find . -type f | xargs -n1 perl -pi.bak -0777 -e '$want = "#!perl -Tw"; s/\A#!.*\n/$want\n/; s/\A([^#])/$want\n\1/s'

plugins/async/check_earlytalker

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

plugins/async/dns_whitelist_soft

@@ -1,4 +1,4 @@
-#!perl -w
+#!perl -Tw
 
 use Qpsmtpd::Plugin::Async::DNSBLBase;
 

plugins/async/dnsbl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!perl -Tw
 
 use Qpsmtpd::Plugin::Async::DNSBLBase;
 

plugins/async/queue/smtp-forward

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

plugins/async/require_resolvable_fromhost

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!perl -Tw
 
 use Qpsmtpd::DSN;
 use ParaDNS;

plugins/async/rhsbl

@@ -1,4 +1,4 @@
-#!perl -w
+#!perl -Tw
 
 use Qpsmtpd::Plugin::Async::DNSBLBase;
 

plugins/async/uribl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!perl -Tw
 
 use Qpsmtpd::Plugin::Async::DNSBLBase;
 

plugins/auth/auth_checkpassword

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

plugins/auth/auth_cvm_unix_local

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

plugins/auth/auth_flat_file

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

plugins/auth/auth_ldap_bind

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -Tw
+#!perl -Tw
 
 sub register {
   my ( $self, $qp, @args ) = @_;

plugins/auth/auth_vpopmail

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!perl -Tw
 use strict;
 
 =head1 NAME

plugins/auth/auth_vpopmail_sql

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

plugins/auth/auth_vpopmaild

@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!perl -Tw
 
 use strict;
 use warnings;

plugins/auth/authdeny

@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!perl -Tw
 #
 #  This plugin doesn't actually check anything and will fail any
 #  user no matter what they type.  It is strictly a proof of concept for

plugins/check_badmailfrom_patterns

@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!perl -Tw
 
 =pod
 

plugins/check_badmailfromto

@@ -1,4 +1,4 @@
-#! perl
+#!perl -Tw
 
 =head1 NAME
 

plugins/check_badrcptto_patterns

@@ -1,3 +1,4 @@
+#!perl -Tw
 =pod
 
 =head1 SYNOPSIS

plugins/check_basicheaders

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

plugins/check_bogus_bounce

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

plugins/check_earlytalker

@@ -1,3 +1,4 @@
+#!perl -Tw
 =head1 NAME
 
 check_earlytalker - Check that the client doesn't talk before we send the SMTP banner

plugins/check_loop

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

plugins/check_norelay

@@ -1,3 +1,4 @@
+#!perl -Tw
 =pod
 
 =head1 SYNOPSIS

plugins/check_spamhelo

@@ -1,3 +1,4 @@
+#!perl -Tw
 =head1 NAME
 
 check_spamhelo - Check a HELO message delivered from a connecting host.

plugins/connection_time

@@ -1,3 +1,4 @@
+#!perl -Tw
 
 =head1 NAME
 

plugins/dns_whitelist_soft

@@ -1,3 +1,4 @@
+#!perl -Tw
 =head1 NAME
 
 dns_whitelist_soft - dns-based whitelist override for other qpsmtpd plugins

plugins/dnsbl

@@ -1,4 +1,4 @@
-#!perl -w
+#!perl -Tw
 
 =head1 NAME
 

plugins/domainkeys

@@ -1,3 +1,4 @@
+#!perl -Tw
 sub init {
     my ($self, $qp, %args) = @_;
 

plugins/greylisting

@@ -1,3 +1,4 @@
+#!perl -Tw
 =head1 NAME
 
 denysoft_greylist

plugins/hosts_allow

@@ -1,3 +1,4 @@
+#!perl -Tw
 
 =head1 NAME 
 

plugins/http_config

@@ -1,3 +1,4 @@
+#!perl -Tw
 =head1 NAME
 
 http_config

plugins/logging/adaptive

@@ -1,4 +1,4 @@
-#!perl
+#!perl -Tw
 # Adaptive logging plugin - logs at one level for successful messages and
 # one level for DENY'd messages
 

plugins/logging/apache

@@ -1,3 +1,4 @@
+#!perl -Tw
 
 =head1 NAME
 

plugins/logging/connection_id

@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!perl -Tw
 # this is a simple 'connection_id' plugin like the default builtin logging
 #
 # It demonstrates that a logging plugin can call ->log itself as well

plugins/logging/devnull

@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!perl -Tw
 # this is a simple 'drop packets on the floor' plugin
 
 sub hook_logging {

plugins/logging/file

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

plugins/logging/syslog

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

plugins/logging/transaction_id

@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!perl -Tw
 # this is a simple 'transaction_id' plugin like the default builtin logging
 #
 # It demonstrates that a logging plugin can call ->log itself as well

plugins/logging/warn

@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!perl -Tw
 # this is a simple 'warn' plugin like the default builtin logging
 #
 # It demonstrates that a logging plugin can call ->log itself as well

plugins/milter

@@ -1,3 +1,4 @@
+#!perl -Tw
 =head1 NAME
 
 milter

plugins/queue/exim-bsmtp

@@ -1,3 +1,4 @@
+#!perl -Tw
 =head1 NAME
 
 exim-bsmtp

plugins/queue/maildir

@@ -1,4 +1,4 @@
-#!perl
+#!perl -Tw
 
 =head1 NAME
 

plugins/queue/postfix-queue

@@ -1,3 +1,4 @@
+#!perl -Tw
 
 =head1 NAME
 

plugins/queue/smtp-forward

@@ -1,3 +1,4 @@
+#!perl -Tw
 =head1 NAME
 
 smtp-forward

plugins/quit_fortune

@@ -1,3 +1,4 @@
+#!perl -Tw
 
 sub hook_quit {
   my $qp = shift->qp;

plugins/random_error

@@ -1,3 +1,4 @@
+#!perl -Tw
 =head1 NAME
 
 random_error

plugins/rcpt_map

@@ -1,3 +1,4 @@
+#!perl -Tw
 
 =head1 NAME
 

plugins/rcpt_regexp

@@ -1,3 +1,4 @@
+#!perl -Tw
 =head1 NAME
 
 rcpt_regexp - check recipients against a list of regular expressions

plugins/relay_only

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

plugins/require_resolvable_fromhost

@@ -1,3 +1,4 @@
+#!perl -Tw
 use Qpsmtpd::DSN;
 use Net::DNS qw(mx);
 use Socket;

plugins/rhsbl

@@ -1,4 +1,4 @@
-#!perl -w
+#!perl -Tw
 
 sub register {
   my ($self, $qp, $denial ) = @_;

plugins/sender_permitted_from

@@ -1,3 +1,4 @@
+#!perl -Tw
 
 =head1 NAME
 

plugins/spamassassin

@@ -1,4 +1,4 @@
-#!perl -w
+#!perl -Tw
 
 =head1 NAME
 

plugins/tls

@@ -1,4 +1,4 @@
-#!perl -w
+#!perl -Tw
 
 =head1 NAME
 

plugins/tls_cert

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!perl -Tw
 # Very basic script to create TLS certificates for qpsmtpd
 use File::Temp qw/ tempfile tempdir /;
 use Getopt::Long;

plugins/uribl

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

plugins/virus/aveclient

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

plugins/virus/bitdefender

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

plugins/virus/clamav

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

plugins/virus/clamdscan

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

plugins/virus/hbedv

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!perl -Tw
 # H+B EDV-AV plugin.
 #
 

plugins/virus/kavscanner

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!perl -Tw
 # Kasperski-AV plugin.
 
 =head1 NAME

plugins/virus/klez_filter

@@ -1,3 +1,4 @@
+#!perl -Tw
 
 sub hook_data_post {
   my ($self, $transaction) = @_;

plugins/virus/sophie

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!perl -Tw
 use IO::Socket;
 
 sub register {

plugins/virus/uvscan

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