#!/usr/bin/perl -w
#preload.pl
use IPC::Shareable;
my $newvalue;
tie $newvalue,'IPC::Shareable','kali',{create => 1,size => 65536};
$newvalue=0;