use lib '/home/michael/OpenCA/Test/test1/modules/perl5';

use Net::Server::PreFork;

use strict qw (@ISA);

package MyServer;
@ISA = qw(Net::Server::PreFork);

MyServer->run (
     proto      => "unix",
     port       => "/tmp/server_socket|unix",
     background => 1);

sub process_request
{
    print "Serer: Hello before backtick\n";
    my $help = `ls`;
    print "Serer: received result: ".$help;

    return 1;
}
1;