A compiler written in perl for java