$ cat Number.pm
package Number;

1;
$ perl -wE'
open my $fh, "+<", "Number.pm" or die $!;
use Fcntl qw/ :flock /;
flock $fh, LOCK_EX;
<STDIN>;' &
$ perl -wE'use Number'
$