Twinkle softphone outgoing call scripts

Very quick project....2 small perl scripts required to be triggered from within Twinkle softphone for linux that automatically hangs-up the phone for outbound calls if the line has been ringing for 30 seconds. These will be triggered from "outbound call" and "outbound call answered" within Twinkle. Previous experience of Twinkle required. Scripts required to be delivered tested and fully functioning.