sub call_service {
   my $svc  = shift;
   my $cmd  = shift;
   my @args = @_;

   foreach ( @args ) { $_ = "\"$_\"" }
   my $arg = join ",", @args;
	
   return eval $svc . "::" . $cmd . "(" . $arg . ")";
}