Yate call recorder script

record_all_calls.pl

#!/usr/bin/perl
use strict;
use warnings;
use Yate;
use Data::Dumper;

# Convert results into stereo wav:
#  sox -M /tmp/rec_2015-05-20T17\:09\:44_no-billid_6134-[AB].au /tmp/rec_2015-05-20T17:09:44_no-billid_6134.wav

my $yate = new Yate(Debug=>0);
$yate->connect("127.0.0.1:42428");
$yate->install('call.answered', \&call_answered_handler, 70);
$yate->listen();

sub call_answered_handler
{
  my $m = shift;
  my $billid = $m->param('billid') // 'no-billid';
  my $date = mk_date();
  my $fn = sprintf("/tmp/rec_%s_%s_%04d", $date, $billid, int(rand(10000)));
  my $ext = 'au';
  print "Recording call: $fn\n";
  $m->message('chan.masquerade', undef, '',
    message => "chan.record",
    id => $m->param('id'),
    peer => "wave/record/$fn-A.$ext",
    call => "wave/record/$fn-B.$ext",
  );
  open F, '>:utf8', "$fn.txt" or warn "Can't open $fn.txt: $!\n";
  print F Dumper($m->{params});
  close F or warn "Can't write to $fn.txt: $!\n";

  $date =~ s/_.*//;
  my $script = "/tmp/convert_$date.sh";
  my $first = !-e $script;
  open F, '>>:utf8', $script or warn "Can't open $script: $!\n";
  print F "#!/bin/sh\n" if $first;
  print F "sox -M $fn-[AB].au $fn.wav && rm $fn-[AB].au\n";
  close F;
  return undef;
}

sub mk_date
{
  my $time = shift;
  my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time // time());
  return sprintf "%04d-%02d-%02d_%02d%02d%02d", $year + 1900, $mon + 1, $mday,$hour,$min,$sec;
}

As now I tried to use Yate and I need call recording so can you please let me know procedure to implement above script?

Thanks in advance!!!