# gets (or creates) the "Person" intel for "Jeff Pinyan"
my $japhy_intel = $intelSOAP->call(new => intel_person => "Jeff Pinyan")->result;

# gets (or creates) the folder for Person "Jeff Pinyan"
my $japhy_folder = $folderSOAP->call(new => $japhy_intel)->result;

# gets (or creates) the "Alias" intel for "japhy"
my $alias_intel = $intelSOAP->call(new => intel_alias => "japhy")->result;

# adds Alias "japhy" to Person "Jeff Pinyan"'s folder
$folderSOAP->add_to_folder($japhy_folder, $alias_intel);

##</code><code>##

$folderSOAP->add_to_folder(intel_person => "Jeff Pinyan", intel_alias => "japhy");

##</code><code>##

my @contents = $folderSOAP->get_contents(intel_person => "Jeff Pinyan")->result;

for (@contents) {
  print $intelSOAP->display($_)->result;
}

##</code><code>##

my $intelSOAP = SOAP::Lite
  ->ns("/Platform/Intel")
  ->proxy("http://localhost:9999/Platform/Intel");
my $folderSOAP = SOAP::Lite
  ->ns("/Platform/Folder")
  ->proxy("http://localhost:9999/Platform/Folder");