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

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

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

print "Enter an Acronym to get list of the ToDolist:\n";

my $acro=<STDIN>;

chomp $acro;

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