use Asterisk::AGI;
use File::Copy;


open( my $filehandle, '>', "/var/lib/asterisk/agi-bin/ssss.call" )
print $file "This is the content";
close ($file);