#!/usr/bin/perl -w

use strict;

use FindBin;
use lib "$FindBin::Bin/../lib/perl";

use File::Temp qw(tempfile);

# ... remainder snipped ...