The Perl Advent Calendar needs more articles for 2022. Submit your idea today!
#!/usr/bin/perl

use FindBin;
require "$FindBin::Bin/wrap.tm";

dirwrap(sub {
	$ENV{FLOCK_FORKING_USE} = 'subprocess';
	require File::Flock::Forking;
	import File::Flock::Forking;
	require File::Flock;
	import File::Flock;
	require "$FindBin::Bin/flock2.tt"
});