open (HANDLE,$door); flock (HANDLE,LOCK_EX); push; push; push; pop; my $handle = new IO::File "lavatory", "w"; $handle->flush(); flock (HANDLE,LOCK_UN); exit;