Just some experiments with Perl