use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(POST => 'http://your.server.com/doit.pl');
$req->content(q{action=DELETE%20FROM%20table});
$ua->request($req); #kaboom, your table is gone