Select Code to Download

#!/usr/bin/perl

...
    Global1::error ( "Parent process $$ exiting\n" );
    exit;
}

package Mgr;

...
}

1;

package Global1;

...
}

1;