use strict;
use warnings;
use Data::Dumper;
use Storable qw(nfreeze);
use IO::Socket::SSL;

while (1) {
   my $socket = IO::Socket::SSL->new(
      Listen => 5,
      LocalAddr => 'localhost',
      LocalPort => 9000,
      Proto     => 'tcp',
      Reuse     => 1,
      SSL_verify_mode => 0x01,
      SSL_passwd_cb => sub {return "bluebell"},
   ) or die "unable to open socket over localhost:9000";

   while (my $client = $socket->accept()) {
      chomp (my $request = <$client>);
      next unless $request;
      print "Request: $request\n";

      my $stats = {
         'memstats' => {
            'Cached' => '164352',
            'MemTotal' => '1035972',
            'SwapUsed' => '0',
            'Buffers' => '79600',
            'SwapUsedPer' => '0.00',
            'MemUsed' => '377636',
            'SwapTotal' => '2096472',
            'MemUsedPer' => '36.45',
            'SwapFree' => '2096472',
            'MemFree' => '658336'
         }
      };

      my $p2s = nfreeze($stats) or die $!;
      print $client $p2s;
      close($client);
      close($socket);
      system("mknod ./myfifo p") unless -e './myfifo';
      open my $fh, '>>', './myfifo', or die $!;
      print $fh $p2s;
      close $fh;
   }
}

use strict;
use warnings;
use Data::Dumper;
use Storable qw(thaw);
use IO::Socket::SSL;
use Safe;

my $safe = new Safe;

$safe->permit(qw(:default require));

{
   no warnings 'once';
   $Storable::Deparse = 1;
   $Storable::Eval = sub { $safe->reval($_[0]) };
}

while (1) {
   my $socket = IO::Socket::SSL->new(
      PeerAddr => 'localhost',
      PeerPort => '9000',
      Proto    => 'tcp',
      SSL_use_cert => 1,
      SSL_verify_mode => 0x01,
      SSL_passwd_cb => sub { return "opossum" }
   ) or die "unable to connect to 127.0.0.1:9000";

   print $socket "__STATISTICS___\n";
   local $/;
   my $p2s = <$socket>;
   my $s2p = thaw($p2s);
   print "-----------FROM IO::SOCKET-----------\n";
   print Dumper($s2p);
   close($socket);

   {
      print "\n-----------FROM LOCAL PIPE-----------\n";
      open my $fh, '<', './myfifo', or die $!;
      local $/;
      my $p2s = <$fh>;
      my $s2p = thaw $p2s;
      print Dumper($s2p);
   }

   sleep 3;
}