#!/usr/bin/env perl
use strict;
use warnings;

BEGIN {
    unshift @INC, sub { warn "Loading $_[1] from " . (caller)[0] . "\n"; 0; };
}

use File::Copy;