0: Yes, I realize that this is only half perl, and could easily be done in just perl.
1: But I think it's neat. It reads a director for dreamweaver(I have no idea what other 
2: software uses for lockfiles) Lockfiles, and tells you who has which script or file checked 
3: out. Uses some silly ansi highlighting.
4: 
5: takes args from ls with xargs
6: 
7: 
8: #!/bin/bash
9: 
10: ls *.LCK|xargs perl -e'for(@ARGV){open(FD,"<$_");$f=join("",<FD>);$f=~s/\n//;$_ =~ s/(.*)\.LCK/\e[44m$1\e[0m$2/;print"$_ [$f]\n" }'