Original stepc perl code.