[Asterisk-Users] simple perl-agi - where's the error?

[Christian B]

Hello!

I'm trying to setup a perl-deadagi, but my perl skills lack. can
someone tell me why the following code doesn't work:

#!/usr/bin/perl
use Asterisk::AGI;
 $AGI = new Asterisk::AGI;

$dialstring = $AGI->get_variable("DIALSTRING");
$res = $AGI->exec("DIAL $dialstring");


the asterisk output says:

AGI Rx << GET VARIABLE DIALSTRING
AGI Tx >> 200 result=1 (089324154332)
AGI Rx << EXEC DIAL  ""
    -- AGI Script Executing Application: (DIAL) Options: ()
Mar 20 11:46:02 WARNING[21970]: app_dial.c:773 dial_exec_full: Dial
requires an argument (technology/number) AGI Tx >> 200 result=-1
    -- AGI Script agirouter/dialscript.pl completed, returning 0


so the get_variable-command seems to work, also the exec(with
"$dialstring = 089324154332" the call goes out), but not setting the
variable. should be so simple :-( astcc-agi seems to use the same
syntax, so i have no clue what is wrong in my place... 
any ideas? thx!

kind regards
christian