--- ./scripts/train.pl.orig	2010-01-11 23:21:58.000000000 +0200
+++ ./scripts/train.pl	2010-01-17 18:52:16.000000000 +0200
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!%%PERL%%
 
 # train.pl
 # This tool trains a corpus of messages (a directory containing a nonspam and
@@ -14,7 +14,7 @@
 use vars qw { $USER $PATH $REPORTING_WINDOW $CORPUS $TRAINING_MODE };
 
 $REPORTING_WINDOW  = 250;			# How often to summarize
-$PATH              = "/usr/local/dspam/bin";	# Path to dspam binaries
+$PATH              = "%%DSPAM_PATH%%";		# Path to dspam binaries
 $TRAINING_MODE     = "teft";			# Training mode
 
 ### DO NOT CONFIGURE BELOW THIS LINE ###