Create kill_avaya.perl