diff --git a/tools/winapi/c_function.pm b/tools/winapi/c_function.pm
index 773c6b2ded6..4bef581f215 100644
--- a/tools/winapi/c_function.pm
+++ b/tools/winapi/c_function.pm
@@ -19,6 +19,7 @@
 package c_function;
 
 use strict;
+use warnings 'all';
 
 sub new($)
 {
diff --git a/tools/winapi/c_parser.pm b/tools/winapi/c_parser.pm
index d42e04ac33d..77e524f741b 100644
--- a/tools/winapi/c_parser.pm
+++ b/tools/winapi/c_parser.pm
@@ -19,6 +19,7 @@
 package c_parser;
 
 use strict;
+use warnings 'all';
 
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
 require Exporter;
diff --git a/tools/winapi/c_type.pm b/tools/winapi/c_type.pm
index c6aeb6a9120..ba1aec26438 100644
--- a/tools/winapi/c_type.pm
+++ b/tools/winapi/c_type.pm
@@ -19,6 +19,7 @@
 package c_type;
 
 use strict;
+use warnings 'all';
 
 use output qw($output);
 
diff --git a/tools/winapi/config.pm b/tools/winapi/config.pm
index fd45dc7a238..ceba90a4851 100644
--- a/tools/winapi/config.pm
+++ b/tools/winapi/config.pm
@@ -19,6 +19,7 @@
 package config;
 
 use strict;
+use warnings 'all';
 
 use setup qw($current_dir $wine_dir $winapi_dir);
 
diff --git a/tools/winapi/function.pm b/tools/winapi/function.pm
index c53daa6d603..2bc2c4ca7a3 100644
--- a/tools/winapi/function.pm
+++ b/tools/winapi/function.pm
@@ -19,6 +19,7 @@
 package function;
 
 use strict;
+use warnings 'all';
 
 sub new($) {
     my $proto = shift;
diff --git a/tools/winapi/make_filter b/tools/winapi/make_filter
index 45665debcf4..f080706dfb3 100755
--- a/tools/winapi/make_filter
+++ b/tools/winapi/make_filter
@@ -1,4 +1,4 @@
-#! /usr/bin/perl -w
+#!/usr/bin/perl
 #
 # Copyright 1999, 2000, 2001 Patrik Stridvall
 #
@@ -18,6 +18,7 @@
 #
 
 use strict;
+use warnings 'all';
 
 BEGIN {
     $0 =~ m%^(.*?/?tools)/winapi/make_filter$%;
diff --git a/tools/winapi/make_filter_options.pm b/tools/winapi/make_filter_options.pm
index 0cb81cd7282..7008487c3bf 100644
--- a/tools/winapi/make_filter_options.pm
+++ b/tools/winapi/make_filter_options.pm
@@ -17,9 +17,11 @@
 #
 
 package make_filter_options;
-use base qw(options);
 
 use strict;
+use warnings 'all';
+
+use base qw(options);
 
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
 require Exporter;
diff --git a/tools/winapi/make_parser.pm b/tools/winapi/make_parser.pm
index 773c5f30fde..2f5788df882 100644
--- a/tools/winapi/make_parser.pm
+++ b/tools/winapi/make_parser.pm
@@ -19,6 +19,7 @@
 package make_parser;
 
 use strict;
+use warnings 'all';
 
 use setup qw($current_dir $wine_dir $winapi_dir);
 
diff --git a/tools/winapi/modules.pm b/tools/winapi/modules.pm
index cbf1a2a97da..0651a7f2728 100644
--- a/tools/winapi/modules.pm
+++ b/tools/winapi/modules.pm
@@ -19,6 +19,7 @@
 package modules;
 
 use strict;
+use warnings 'all';
 
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
 require Exporter;
diff --git a/tools/winapi/msvcmaker b/tools/winapi/msvcmaker
index a18eb978e00..864b2b7b633 100755
--- a/tools/winapi/msvcmaker
+++ b/tools/winapi/msvcmaker
@@ -1,8 +1,9 @@
-#! /usr/bin/perl -w
+#!/usr/bin/perl
 
 # Copyright 2002 Patrik Stridvall
 
 use strict;
+use warnings 'all';
 
 BEGIN {
     $0 =~ m%^(.*?/?tools)/winapi/msvcmaker$%;
diff --git a/tools/winapi/msvcmaker_options.pm b/tools/winapi/msvcmaker_options.pm
index 32bdffd317b..242dcb97818 100644
--- a/tools/winapi/msvcmaker_options.pm
+++ b/tools/winapi/msvcmaker_options.pm
@@ -17,9 +17,11 @@
 #
 
 package msvcmaker_options;
-use base qw(options);
 
 use strict;
+use warnings 'all';
+
+use base qw(options);
 
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
 require Exporter;
diff --git a/tools/winapi/nativeapi.pm b/tools/winapi/nativeapi.pm
index 480448655dd..bc58d96eb4d 100644
--- a/tools/winapi/nativeapi.pm
+++ b/tools/winapi/nativeapi.pm
@@ -19,6 +19,7 @@
 package nativeapi;
 
 use strict;
+use warnings 'all';
 
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
 require Exporter;
diff --git a/tools/winapi/options.pm b/tools/winapi/options.pm
index 3daeb1144ff..2254852d55b 100644
--- a/tools/winapi/options.pm
+++ b/tools/winapi/options.pm
@@ -19,6 +19,7 @@
 package options;
 
 use strict;
+use warnings 'all';
 
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
 require Exporter;
@@ -58,6 +59,7 @@ sub parse_value($$) {
 package _options;
 
 use strict;
+use warnings 'all';
 
 use output qw($output);
 
diff --git a/tools/winapi/output.pm b/tools/winapi/output.pm
index f2c8d79e89f..381570a0bfb 100644
--- a/tools/winapi/output.pm
+++ b/tools/winapi/output.pm
@@ -19,6 +19,7 @@
 package output;
 
 use strict;
+use warnings 'all';
 
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
 require Exporter;
@@ -34,6 +35,7 @@ $output = '_output'->new;
 package _output;
 
 use strict;
+use warnings 'all';
 
 my $stdout_isatty = -t STDOUT;
 my $stderr_isatty = -t STDERR;
diff --git a/tools/winapi/preprocessor.pm b/tools/winapi/preprocessor.pm
index 3d497733eb2..796f7dfae28 100644
--- a/tools/winapi/preprocessor.pm
+++ b/tools/winapi/preprocessor.pm
@@ -19,6 +19,7 @@
 package preprocessor;
 
 use strict;
+use warnings 'all';
 
 sub new($) {
     my $proto = shift;
diff --git a/tools/winapi/setup.pm b/tools/winapi/setup.pm
index 60a35c5ab74..ed0846049bb 100644
--- a/tools/winapi/setup.pm
+++ b/tools/winapi/setup.pm
@@ -19,6 +19,7 @@
 package setup;
 
 use strict;
+use warnings 'all';
 
 BEGIN {
     use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
diff --git a/tools/winapi/tests.pm b/tools/winapi/tests.pm
index 142538cd471..6553da3341b 100644
--- a/tools/winapi/tests.pm
+++ b/tools/winapi/tests.pm
@@ -19,6 +19,7 @@
 package tests;
 
 use strict;
+use warnings 'all';
 
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
 require Exporter;
diff --git a/tools/winapi/type.pm b/tools/winapi/type.pm
index 8f66780e698..b18383a79e9 100644
--- a/tools/winapi/type.pm
+++ b/tools/winapi/type.pm
@@ -19,6 +19,7 @@
 package type;
 
 use strict;
+use warnings 'all';
 
 sub new($) {
     my $proto = shift;
diff --git a/tools/winapi/util.pm b/tools/winapi/util.pm
index 6697d56c2ec..8f400da2f23 100644
--- a/tools/winapi/util.pm
+++ b/tools/winapi/util.pm
@@ -19,6 +19,7 @@
 package util;
 
 use strict;
+use warnings 'all';
 
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
 require Exporter;
diff --git a/tools/winapi/winapi.pm b/tools/winapi/winapi.pm
index c77046583e2..62b43111739 100644
--- a/tools/winapi/winapi.pm
+++ b/tools/winapi/winapi.pm
@@ -19,6 +19,7 @@
 package winapi;
 
 use strict;
+use warnings 'all';
 
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
 require Exporter;
diff --git a/tools/winapi/winapi_check b/tools/winapi/winapi_check
index 61a06351f87..bfc9fc7e057 100755
--- a/tools/winapi/winapi_check
+++ b/tools/winapi/winapi_check
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 # Copyright 1999-2002 Patrik Stridvall
 #
@@ -28,6 +28,7 @@
 #
 
 use strict;
+use warnings 'all';
 
 BEGIN {
     $0 =~ m%^(.*?/?tools)/winapi/winapi_check$%;
diff --git a/tools/winapi/winapi_check_options.pm b/tools/winapi/winapi_check_options.pm
index 23abb1ff487..8e1774429bf 100644
--- a/tools/winapi/winapi_check_options.pm
+++ b/tools/winapi/winapi_check_options.pm
@@ -17,9 +17,11 @@
 #
 
 package winapi_check_options;
-use base qw(options);
 
 use strict;
+use warnings 'all';
+
+use base qw(options);
 
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
 require Exporter;
@@ -161,9 +163,11 @@ my $options_usage = "usage: winapi_check [--help] [<files>]\n";
 $options = '_winapi_check_options'->new(\%options_long, \%options_short, $options_usage);
 
 package _winapi_check_options;
-use base qw(_options);
 
 use strict;
+use warnings 'all';
+
+use base qw(_options);
 
 sub report_module($$) {
     my $self = shift;
diff --git a/tools/winapi/winapi_documentation.pm b/tools/winapi/winapi_documentation.pm
index d959e11ac87..2be7c8c2a83 100644
--- a/tools/winapi/winapi_documentation.pm
+++ b/tools/winapi/winapi_documentation.pm
@@ -19,6 +19,7 @@
 package winapi_documentation;
 
 use strict;
+use warnings 'all';
 
 use config qw($current_dir $wine_dir);
 use modules qw($modules);
diff --git a/tools/winapi/winapi_extract b/tools/winapi/winapi_extract
index 1d165b9cf3d..b53fbcf9719 100755
--- a/tools/winapi/winapi_extract
+++ b/tools/winapi/winapi_extract
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 # Copyright 2002 Patrik Stridvall
 #
@@ -18,6 +18,7 @@
 #
 
 use strict;
+use warnings 'all';
 
 BEGIN {
     $0 =~ m%^(.*?/?tools)/winapi/winapi_extract$%;
diff --git a/tools/winapi/winapi_extract_options.pm b/tools/winapi/winapi_extract_options.pm
index 0e5754e4af6..5126ba40f6e 100644
--- a/tools/winapi/winapi_extract_options.pm
+++ b/tools/winapi/winapi_extract_options.pm
@@ -17,9 +17,11 @@
 #
 
 package winapi_extract_options;
-use base qw(options);
 
 use strict;
+use warnings 'all';
+
+use base qw(options);
 
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
 require Exporter;
diff --git a/tools/winapi/winapi_function.pm b/tools/winapi/winapi_function.pm
index 633e9ea41d0..d4cfb729771 100644
--- a/tools/winapi/winapi_function.pm
+++ b/tools/winapi/winapi_function.pm
@@ -17,9 +17,11 @@
 #
 
 package winapi_function;
-use base qw(function);
 
 use strict;
+use warnings 'all';
+
+use base qw(function);
 
 use config qw($current_dir $wine_dir);
 use util qw(normalize_set);
diff --git a/tools/winapi/winapi_global.pm b/tools/winapi/winapi_global.pm
index 38c0dfe695d..bb1403c8ca4 100644
--- a/tools/winapi/winapi_global.pm
+++ b/tools/winapi/winapi_global.pm
@@ -19,6 +19,7 @@
 package winapi_global;
 
 use strict;
+use warnings 'all';
 
 use modules qw($modules);
 use nativeapi qw($nativeapi);
diff --git a/tools/winapi/winapi_local.pm b/tools/winapi/winapi_local.pm
index 42dd1461f92..a9aef178365 100644
--- a/tools/winapi/winapi_local.pm
+++ b/tools/winapi/winapi_local.pm
@@ -19,6 +19,7 @@
 package winapi_local;
 
 use strict;
+use warnings 'all';
 
 use nativeapi qw($nativeapi);
 use options qw($options);
diff --git a/tools/winapi/winapi_module_user.pm b/tools/winapi/winapi_module_user.pm
index ef14453061f..53bce8e5b8a 100644
--- a/tools/winapi/winapi_module_user.pm
+++ b/tools/winapi/winapi_module_user.pm
@@ -19,6 +19,7 @@
 package winapi_module_user;
 
 use strict;
+use warnings 'all';
 
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
 require Exporter;
diff --git a/tools/winapi/winapi_parser.pm b/tools/winapi/winapi_parser.pm
index 37038371b29..87e286f60bb 100644
--- a/tools/winapi/winapi_parser.pm
+++ b/tools/winapi/winapi_parser.pm
@@ -19,6 +19,7 @@
 package winapi_parser;
 
 use strict;
+use warnings 'all';
 
 use output qw($output);
 use options qw($options);
diff --git a/tools/winapi/winapi_test b/tools/winapi/winapi_test
index 1061dd8157a..762d7afde2b 100755
--- a/tools/winapi/winapi_test
+++ b/tools/winapi/winapi_test
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 # Copyright 2002 Patrik Stridvall
 #
@@ -18,6 +18,7 @@
 #
 
 use strict;
+use warnings 'all';
 
 BEGIN {
     $0 =~ m%^(.*?/?tools)/winapi/winapi_test$%;
diff --git a/tools/winapi/winapi_test_options.pm b/tools/winapi/winapi_test_options.pm
index 240e840f2f0..c422b65e04b 100644
--- a/tools/winapi/winapi_test_options.pm
+++ b/tools/winapi/winapi_test_options.pm
@@ -17,9 +17,11 @@
 #
 
 package winapi_test_options;
-use base qw(options);
 
 use strict;
+use warnings 'all';
+
+use base qw(options);
 
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
 require Exporter;