use strict;
      use warnings;
      use SOAP::Lite;
			
      my $soap = SOAP::Lite -> service('http://apniurdu.com/SOAP/Urdu2.wsdl');
      my $data = SOAP::Data -> value ( 'Urdu is a great language' ) -> type ( 'string' );
			
      my $dict = $soap -> GetWords ('');
      my $text = $soap -> Translate ( $data );
      my $urdu = $soap -> GetMapping ( $data );
      my $utf8 = $soap -> GetUnicode ( $urdu );
			
      print <<EOT;
      Words in Dictionary: $dict
      Translated   Text  : $text
      ApniUrdu Urdu Map  : $urdu
      Unicode Urdu text  : $utf8
      EOT