diff --git a/scripts/checkpatch.pl b/scripts/checkpatch.pl
index c4b7437b902..05fd772c91f 100755
--- a/scripts/checkpatch.pl
+++ b/scripts/checkpatch.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl 
 # (c) 2001, Dave Jones. (the file handling bit)
 # (c) 2005, Joel Schopp <jschopp@austin.ibm.com> (the ugly bit)
 # (c) 2007,2008, Andy Whitcroft <apw@uk.ibm.com> (new conditions, test suite)
@@ -7,6 +7,7 @@
 # Licensed under the terms of the GNU GPL License version 2
 
 use strict;
+use warnings;
 
 my $P = $0;
 $P =~ s@.*/@@g;
diff --git a/scripts/cleanfile b/scripts/cleanfile
index cefd29e5229..64507c488f0 100755
--- a/scripts/cleanfile
+++ b/scripts/cleanfile
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl
 #
 # Clean a text file -- or directory of text files -- of stealth whitespace.
 # WARNING: this can be a highly destructive operation.  Use with caution.
@@ -6,6 +6,7 @@
 
 use bytes;
 use File::Basename;
+use warnings;
 
 # Default options
 $max_width = 79;
diff --git a/scripts/cleanpatch b/scripts/cleanpatch
index 9680d03ad2b..ab5ebddded2 100755
--- a/scripts/cleanpatch
+++ b/scripts/cleanpatch
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl 
 #
 # Clean a patch file -- or directory of patch files -- of stealth whitespace.
 # WARNING: this can be a highly destructive operation.  Use with caution.
@@ -6,6 +6,7 @@
 
 use bytes;
 use File::Basename;
+use warnings;
 
 # Default options
 $max_width = 79;
diff --git a/scripts/flashing/adsl2mue_flash.pl b/scripts/flashing/adsl2mue_flash.pl
index c206c471fd8..0162eaf35b6 100755
--- a/scripts/flashing/adsl2mue_flash.pl
+++ b/scripts/flashing/adsl2mue_flash.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 #
 #   Linksys ADSL2MUE Flash utility.
 #