random perl scripts and modules