crP

#!/bin/bash

function usage() {
	
	if [ "$1" == "" ]; then
		echo "usage: $0 braucht Skriptnamen"
		return 1
	fi
	return 0
}
p=`which perl`
usage $1
if [ $? = 1 ]; then 
	echo "Skryptname eingeben: "
	read file
	file="${file}.pl"
else
	file="${1}.pl"
fi
x="false"
while [ "$x" = "false" ]
do
if [ ! -e ${file} ]; then
	x="true"
else
	echo "existiert bereits !!!!"
	echo "neuen Skryptname eingeben: "
	read file
	file="${file}.pl"
fi
done

exec 3> /dev/null
touch ./${file} >&3
chmod a+x ./${file} >&3
echo "#!${p} -w" >> ${file}
echo ' ' >> ${file}
echo 'use strict;' >> ${file}
echo 'use warnings;' >> ${file}
echo ' ' >> ${file}
geany ${file} &
exec 3>$-
exit 0