Started messing around with perl