#!/usr/bin/perl
use strict;
use REST::Client;
my $client = REST::Client->new();
my $request=q{DELETE('https://www.httpbin.org/delete')};
print $request;
eval( $client->$request );
print $client->responseCode();