use Benchmark qw(cmpthese);
use IPC::ShareLite;

{
    my  $share = new IPC::ShareLite( -key     => 1971,
				     -create  => 'yes',
				     -destroy => 'no' ) or die $!;
    open(my $bla, $0) or die $!;
    $share->store(join "", <$bla>);
}

cmpthese(-1,
	 {fs => sub {
	      open(my $bla, $0) or die $!;
	      local $/ = undef;
	      my $buf = <$bla>;
	      #warn $buf
	  },
	  ipc => sub {
	      my $share = new IPC::ShareLite( -key     => 1971,
					      -create  => 'no',
					      -destroy => 'no' ) or die $!;
	      $share->fetch;
	  }
	 },
	);