sub transfer($){
my $toReturn ;
...
http_ ...
 sub {
    my( $body, $headers) = @_;
   $toReturn = [ $body, $headers ];
 };

...
 return $toREturn;
}