Perl startup script