view release on metacpan or  search on metacpan

examples/http_get.pl  view on Meta::CPAN

   return as_future_cb {
      my ( $done, $fail ) = @_;

      return http_get $url, sub {
         my ( $data, $headers ) = @_;
         defined $data ? $done->( $data ) : $fail->( $headers->{Reason} );
      };
   };
}

say HTTP_GET( $ARGV[0] )->get;