Few PERL scripts