Fun with perl

useful scripts