Select Code to Download

#!/usr/bin/perl -w
#ipcprocesses.pm.
...
    else{
         my $newvalue;
         tie $newvalue,"IPC::Shareable",'kali';

sub new {
    my $class = shift;
...
      }
   exit;
}