--- a/zone-rm.pl	Tue Dec 21 13:53:39 2010 +0100
+++ b/zone-rm.pl	Tue Dec 21 13:55:01 2010 +0100
@@ -1,5 +1,6 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl 
 
+use warnings;
 use strict;
 use File::Path;
 use FindBin;