changed perl invocation