One process Other process my $status= CheckStatus(); exit if 1 != $status; my $status= CheckStatus(); exit if 1 != $status; SetStatus( 2 ); SetStatus( 2 ); DoWork(); DoWork(); SetStatus( 1 ); SetStatus( 1 );