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

$file = 'steph.call';
$path = '/var/lib/asterisk/agi-bin/';

open($file, '>',$path) or die($!);
print $file "This is the content";
close ($file);