Delete a pad from the default group in etherpad lite

deletepad.pl

#!/usr/bin/perl -w
use strict;
use diagnostics;
use LWP::Simple;

my $baseurl = 'http://127.0.0.1:9001/api/1/';
my $apikey  = '***';

my $request_url = $baseurl.'deletePad?apikey='.$apikey.'&padID='.$ARGV[0];
print "$request_url\n";
print get($request_url)."\n";