Perl doesn't support this directly. The code is too long to post here, but check page 267 of the Perl Cookbook for the program lockarea.

Cheers,
Ovid

Join the Perlmonks Setiathome Group or just click on the the link and check out our stats.