system(qq|echo "Context: rca
Callerid: $cid
WaitTime: $call_wait_time
Maxretries: 0
Extension: 8805$recno$mn
Channel: Zap/r2/$phone
SetVar: cdata=$cdata" > /tmp/$filename|);
system("cp -f /tmp/$filename /tmp/lastcall");
system("mv -f /tmp/$filename /var/spool/asterisk/outgoing/");