Something

#!/usr/bin/perl -W
use strict;
use Asterisk::AGI;
$|=1;
my ($AGI, $action, $dbh);
my (%input);
$AGI = new Asterisk::AGI;
%input = $AGI->ReadParse();
$AGI->set_variable("AGISTATUS", "FAILURE");
exit 1;

===== output
..
..
..
AGI Tx >> agi_enhanced: 0.0
AGI Tx >> agi_accountcode: 
AGI Tx >> 
AGI Rx << SET VARIABLE AGISTATUS "FAILURE"
AGI Tx >> 200 result=1
    -- AGI Script callrouter.agi completed, returning 0
    -- Executing [44@hotdesk:6] BackGround("IAX2/jblackhome-5", "auth-thankyou") in new stack
    -- <IAX2/jblackhome-5> Playing 'auth-thankyou' (language 'en')
    -- Executing [44@hotdesk:7] Wait("IAX2/jblackhome-5", "1") in new stack
    -- Executing [44@hotdesk:8] Hangup("IAX2/jblackhome-5", "") in new stack
  == Spawn extension (hotdesk, 44, 8) exited non-zero on 'IAX2/jblackhome-5'
    -- Hungup 'IAX2/jblackhome-5'