#!c:/perl/bin/perl.exe
package Apple;
use strict;

 sub getanswer{
  my ($self,$soap,$other) = @_;
  return('Original soap message: '.$soap);
 }
 1;