perl 'compile'