diff --git a/crP b/crP
index 693e7ab..770c021 100755
--- a/crP
+++ b/crP
@@ -8,6 +8,7 @@ function usage() {
 	fi
 	return 0
 }
+p=`which perl`
 usage $1
 if [ $? = 1 ]; then 
 	echo "Skryptname eingeben: "
@@ -32,7 +33,7 @@ done
 exec 3> /dev/null
 touch ./${file} >&3
 chmod a+x ./${file} >&3
-echo '#!/usr/bin/perl -w' >> ${file}
+echo "#!${p} -w" >> ${file}
 echo ' ' >> ${file}
 echo 'use strict;' >> ${file}
 echo 'use warnings;' >> ${file}