intial addition of the perl script I've been working on