move perl.t pl.t