diff --git a/PVE/QMPClient.pm b/PVE/QMPClient.pm
index 4305cd63..4e244199 100755
--- a/PVE/QMPClient.pm
+++ b/PVE/QMPClient.pm
@@ -1,6 +1,7 @@
 package PVE::QMPClient;
 
 use strict;
+use warnings;
 use PVE::QemuServer;
 use IO::Multiplex;
 use POSIX qw(EINTR EAGAIN);
diff --git a/PVE/QemuServer.pm b/PVE/QemuServer.pm
index 29dcc28e..bafc038a 100644
--- a/PVE/QemuServer.pm
+++ b/PVE/QemuServer.pm
@@ -1,6 +1,7 @@
 package PVE::QemuServer;
 
 use strict;
+use warnings;
 use POSIX;
 use IO::Handle;
 use IO::Select;
diff --git a/changelog.Debian b/changelog.Debian
index 42a1c6d8..bd50567a 100644
--- a/changelog.Debian
+++ b/changelog.Debian
@@ -1,6 +1,8 @@
 qemu-server (3.1-6) unstable; urgency=low
 
   * use new PVE::Storage::abs_filesystem_path()
+  
+  * use warnings instead of global -w flag
 
  -- Proxmox Support Team <support@proxmox.com>  Tue, 01 Oct 2013 12:42:42 +0200
 
diff --git a/gen-vmconf-pod.pl b/gen-vmconf-pod.pl
index a01b787a..337d6811 100755
--- a/gen-vmconf-pod.pl
+++ b/gen-vmconf-pod.pl
@@ -1,8 +1,9 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 package main;
 
 use strict;
+use warnings;
 use PVE::Tools;
 use PVE::Cluster;
 use PVE::PodParser;
diff --git a/pcitest.pl b/pcitest.pl
index a354c688..c87a800d 100755
--- a/pcitest.pl
+++ b/pcitest.pl
@@ -1,8 +1,9 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 # this is some experimental code to test pci pass through
 
 use strict;
+use warnings;
 use IO::Dir;
 use IO::File;
 use Time::HiRes qw(usleep);
diff --git a/pve-bridge b/pve-bridge
index f4ea56e8..81ad5f45 100755
--- a/pve-bridge
+++ b/pve-bridge
@@ -1,6 +1,7 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 use strict;
+use warnings;
 use PVE::QemuServer;
 use PVE::Tools qw(run_command);
 use PVE::Network;
diff --git a/qm b/qm
index 1340d226..6830c6c1 100755
--- a/qm
+++ b/qm
@@ -1,6 +1,7 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 use strict;
+use warnings;
 use Getopt::Long;
 use Fcntl ':flock';
 use File::Path;
diff --git a/qmextract b/qmextract
index f12724ee..d6ee3290 100755
--- a/qmextract
+++ b/qmextract
@@ -1,6 +1,7 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 use strict;
+use warnings;
 use Getopt::Long;
 use File::Path;
 use IO::File;
diff --git a/qmrestore b/qmrestore
index 76b5e87d..59a47b6e 100755
--- a/qmrestore
+++ b/qmrestore
@@ -1,6 +1,7 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 use strict;
+use warnings;
 use PVE::SafeSyslog;
 use PVE::Tools qw(extract_param);
 use PVE::INotify;
diff --git a/qmupdate b/qmupdate
index 0b806ddd..181d37ba 100755
--- a/qmupdate
+++ b/qmupdate
@@ -1,6 +1,7 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 use strict;
+use warnings;
 use IO::File;
 use Digest::SHA;