MD with perl