cannot get script to run to finish this, perl problem