removed undefined variable
first pass at perl lib