perl -e 'print "$]\n";'

##</code><code>##

qwurx [shmem] ~> touch blorflydick
qwurx [shmem] ~> rm blorflydick
qwurx [shmem] ~> mkdir bin
qwurx [shmem] ~> PATH=$HOME/bin:$PATH
qwurx [shmem] ~> which rm
/bin/rm
qwurx [shmem] ~> echo '#!/bin/sh' > bin/rm
qwurx [shmem] ~> echo 'echo no rm damnit' >> bin/rm
qwurx [shmem] ~> chmod a+x bin/rm
qwurx [shmem] ~> which rm
~/bin/rm
qwurx [shmem] ~> rm blorflydick
rm: cannot remove `bloflydick': No such file or directory
qwurx [shmem] ~> 

##</code><code>##

qwurx [shmem] ~> echo $SHLVL
4
qwurx [shmem] ~> bash
qwurx [shmem] ~> echo $SHLVL
5
qwurx [shmem] ~> rm blorflydick
no rm damnit
qwurx [shmem] ~>