--- a/eg/synopsis_scripting
+++ b/eg/synopsis_scripting
@@ -1,3 +1,4 @@
+#!/usr/bin/perl -w
 use strict ;
 
 my @cat = qw( cat ) ;