Added cperl mode