Perl scripts lib