moving perl up