--- samba-3.5.10/examples/misc/wall.perl.orig	2011-09-19 18:01:26.115605146 +0200
+++ samba-3.5.10/examples/misc/wall.perl	2011-09-19 18:01:33.006701087 +0200
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
 # 
 #@(#) smb-wall.pl Description:
 #@(#) A perl script which allows you to announce whatever you choose to