Select Code to Download

#!/usr/bin/perl

use strict;
...
      ->dispatch_to('sendMsg2Vbs')
      ->handle;
1;

#!/usr/local/bin/perl

package vbsservice;
...
        my($class,$data)=@_;

...