package NetServer;
use base qw(Net::Server::Fork);
use IPC::Run;

sub SSL_key_file  { "key.pem" }
sub SSL_cert_file { "cert.pem" }

sub process_request {
    my $command = [ 'echo', '==== System Command Successful' ];
    IPC::Run::run($command, '>', sub { print shift });
}

NetServer->run(proto => 'ssleay', port=>12345);

##</code><code>##

print qx( /usr/bin/echo ==== System Command Successful );