usage of curl module

gistfile1.pl

!/usr/bin/env perl

use strict;
use warnings;
use feature 'say';

use WWW::Curl::Easy;

my $curl = WWW::Curl::Easy->new;

$curl->setopt(CURLOPT_URL, 'http://localhost:3000');

my $response_body;

$curl->setopt(CURLOPT_WRITEDATA,\$response_body);

my $retcode = $curl->perform;

my $foo = $curl->getinfo(CURLINFO_HTTP_CODE);
my $bla = $curl->getinfo(CURLINFO_NAMELOOKUP_TIME);
my $meh = $curl->getinfo(CURLINFO_CONNECT_TIME);

say $foo;
say $bla;
say $meh;