#!/usr/bin/perl

use strict;
use SOAP::Transport::HTTP;
use lib '/var/www/soap';
use vbsservice;

my $server = SOAP::Transport::HTTP::CGI
      ->dispatch_to('sendMsg2ABC')
      ->handle;
1;

##</code><code>##

#!/usr/local/bin/perl

package vbsservice;
use Switch;
use warnings;
use Exporter;
our @ISA = (Exporter);
our @EXPORT = qw(sendMsg2ABC);

sub sendMsg2ABC {

        my($class,$data)=@_;

...