Is it possible to program DDoS programms in perl?