use strict;
use warnings;

BEGIN {
   # Parse options or something.
   $::TESTING = 1;
}

use if $::TESTING, TestHarness => qw( unlink );

unlink();