keine ausgabe im perl-agi-skript möglich

Hallo zusammen,

wieso gibt das Perl-Skript nichts aus? Die Datei wird angelegt
und hat 0 Byte. Gruss

#!/usr/bin/perl
use Asterisk::AGI;
open(ausgabe,">>/tmp/prot-agi.txt");
$agi = new Asterisk::AGI;
my %input = $agi->ReadParse();
my $ergebnis = $agi->get_variable("DIALSTRING");
print ausgabe "$ergebnis\n";
$agi->exec("Dial",$ergebnis );

meine extensions.conf
exten => _[1-9]X,1,Answer
exten => _[1-9]X,2,Set(DIALSTRING=SIP/${EXTEN})
exten => _[1-9]X,3,AGI(my-agi1.pl)
exten => _[1-9]X,4,Hangup