Perl stuff

Some scripts