random perl scripts that attempt to accomplish tasks...