while (1) { print $i++."\n"; $data{'test'}{'test'} = $i; sleep 1; } [download]
In reply to UPDATE! by kodo in thread Delete shares with IPC::Shareable by kodo