Sevexit.pl :

package MOBILEWAY::sevexit;

#sevexit.pl

print "heelo\n";

sub test {

                my @prra = @_;
                use IPC::ShareLite;
        print  "hello there my pid is $$\n";

                my $i=0;

                foreach my $param(@prra) {

                $i++;

                print "Param $i = $param\n";

                                }

                close FILE;
                return ("test");
}

1;