Perl scripts for ranger