or download this
>SNAME=$(/usr/bin/Xdialog --stdout --title "(Path/)New Script's Name..
+." --inputbox "/full/script/path/newscript.pl" 0 0 "$HOME/program/scr
+ipts/newSname.pl");/usr/bin/perl $HOME/program/script/script-starter.
+pl $SNAME ; /usr/bin/scite $SNAME