I am writing a perl script to bridge a call and need to be able to pass back any early media to the caller so I have set "ignore_early_media=false". My problem is that when I am getting early media and then the call finishes, the app seems to be calling the bridge app again to make a new call, even though I have no loops programmed into the script. I have set "hangup_after_bridge=true" but that does not help. Any help would be greatly appreciated.

###################################My code#############################################

#!/usr/bin/perl -w

our $session;

my $ringback_tone = "%(2000,4000,440,480)";    #US RINGBACK TONE

if ($session->ready ())
{     
    #set bridge settings
    $session->execute("set", "ringback=$ringback_tone");    #set the ringback tone type
    $session->execute("set", "instant_ringback=true");    #set to ring instantly
    $session->execute("set", "ignore_early_media=false");    #set to NOT ignore early media
    $session->execute("set", "call_timeout=20");        #only works if "ignore_early_media=true"
    $session->execute("set", "bridge_answer_timeout=20");                                                                
    $session->execute("set", "progress_timeout=15");
    $session->execute("set", "continue_on_fail=false");
    $session->execute("set", "hangup_after_bridge=true");
    $session->execute("set", "bridge_pre_execute_bleg_app=info");
    $session->execute("bridge", "sofia/gateway/carrier1/5214498052059");
    $session->hangup();
}