I finnally got bored and spent all day sunday porting it to perl.