#!/usr/bin/perl

print "my pid = $$\n";

get_lock();
   print "enter return again:";
   my $x = <STDIN>;

sub get_lock {
   local($0) = "(acquiring lock)";
   print "enter return:";
   my $x = <STDIN>;
}