Some Perl! script templates