#!/usr/bin/perl

use strict;
use warnings;

use Parp::Utils qw(init_log);
use Parp::Locking;

init_log();

lock_file("$ENV{HOME}/test");
print "pid $$ flocked test\n";
sleep($ARGV[0] || 0);
print "pid $$ finishing\n";