#ausschalten
binfile=`which perl`
mv $binfile ${binfile}_off

#einschalten
mv ${binfile}_off $binfile