fixed perl argument error