#!/usr/local/bin/perl

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

sub sendMsg2Vbs {

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

...