Возвращение строк в PERL

Question

Я пытаюсь заставить SOAP вернуть сообщение, в данный момент оно просто возвращает hello world.

package RAM;
sub ram {
#!/usr/bin/perl
use Sys::MemInfo qw(totalmem freemem totalswap);

return SOAP::Data->name('result')->type('string')->value("hello world");
}
1;

Я пытаюсь заставить SOAP вернуть:

print "free memory:  ".(&freemem / 1024)."\n";

вместо "Привет, мир"

Любая помощь будет оценена:)

Answer 1

Как насчет ....

  my $string_to_return = "free memory: ".(&freemem / 1024)."\n";
  return SOAP::Data->name('result')->type('string')->value($string_to_return);