#!/usr/bin/perl
use strict 'vars'; #this is to protect unquotted string,bareword which come from Soap trace
use warningns;

use SOAP::Lite +trace;

my $thay =SOAP::Lite->new();

$thay->proxy('http://localhost:9002');

$thay->uri('Todo');

print "Enter Your Acronym to be Deleted:\n";

my $acro=<STDIN>;
chomp $acro;

print "Enter the ID\n";

my $id=<STDIN>;
chomp $id;

my $data = $thay->call(
    deleteTodo=>(
	SOAP::Data->name("acronym")->value("$acro"),
	SOAP::Data->name("id")->value("$id")
    )
    );