diff --git a/contrib/crc.pl b/contrib/crc.pl
index d3cff2138..0e1ca98a1 100755
--- a/contrib/crc.pl
+++ b/contrib/crc.pl
@@ -1,3 +1,5 @@
+#!/usr/bin/perl
+
 die("Usage: crc <HEX-MESSAGE> <CRC>\n") if(int(@ARGV) != 2);
 my $msg = $ARGV[0];
 $msg =~ s/ //g;
diff --git a/contrib/four2hex/four2hex b/contrib/four2hex/four2hex
deleted file mode 100755
index 57236bafe..000000000
Binary files a/contrib/four2hex/four2hex and /dev/null differ
diff --git a/contrib/ws2000_reader.pl b/contrib/ws2000_reader.pl
index f222d82c2..2c0d0ba95 100644
--- a/contrib/ws2000_reader.pl
+++ b/contrib/ws2000_reader.pl
@@ -1,10 +1,10 @@
-#!perl
+#!/usr/bin/perl
 #
 # read_ws2000 from device (elv art-Nr. 390-61) and provides socket service (like XPORT),
 #  or act as client for this service
 # licence GPL2
 # Thomas Dressler 2008
-# $Id: ws2000_reader.pl,v 1.1 2008-05-10 21:10:38 tdressler Exp $
+# $Id: ws2000_reader.pl,v 1.2 2010-08-01 13:33:13 rudolfkoenig Exp $
 
 use Switch;
 use strict;