perl code  + updated deps