package MyAGI;

use strict;
use base 'Asterisk::FastAGI';

sub agi_handler {
	my $self = shift;
	
	use IPC::Open2;
	local (*READ, *WRITE);

    	my $pid = open2(\*READ, \*WRITE, "/path/and/bashscript.sh");

	#here I tried various ways to "pump" data via *READ and *WRITE but without success

	waitpid( $pid, 0 ); 
}

1;