#!/usr/bin/env perl

use strict;
use warnings;
use Fcntl qw(:flock);

flock DATA, LOCK_EX | LOCK_NB or do {
    warn "There can only be one $0.\n";
    exit;
};

# Code...



# Do not remove double-underscore DATA tag. It is required for highlander process assertion.
__DATA__