C-x b *perl-scratch* RET
M-x cperl-mode RET