1: Yes, I realize that this is only half perl, and could easily be done in just perl.
   2: But I think it's neat. It reads a director for dreamweaver(I have no idea what other 
   3: software uses for lockfiles) Lockfiles, and tells you who has which script or file checked 
   4: out. Uses some silly ansi highlighting.
   5: 
   6: takes args from ls with xargs
   7: 
   8: 
   9: #!/bin/bash
  10: 
  11: 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" }'